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PREFACE 



This manual supplies a detailed description of floating-point software for the PDP-8 
family of computers. 

The software consists of individual routines which perform basic arithmetic and 
trigonometric functions on data stored in floating-point format and facilitate data 
readin, decimal -binary conversion, conversion to floating-point format, and 
writeout. Four programs obtainable from Digital Equipment Corporation provide 
various combinations of these functions; listings, entry points, and order numbers 
for the programs are supplied in this manual. 

Automatic calling of user subroutines can be incorporated in the existing routines 
with minor coding modifications. 
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CHAPTER 1 



INTRODUCTION 



The Floating-Point System enables the programmer to concentrate on the logic of his computation 
rather than on decimal points. The system maintains a constant number of significant digits throughout 
the computation, thereby enhancing the accuracy of the result. 

Floating-point notation is particularly useful for computations involving numerous multiplications and 
divisions where magnitudes are likely to vary widely and where only crude predictions can be made as to 
the amount of variation involved. The main advantage of the Floating-Point System is derived 
from the ability to store very large or very small numbers by storing only the significant digits together 
with the exponent for that number. In an integral or fractional fixed-point machine, the programmer 
must either include all of the O's between the significant digits and the decimal point (and in so doing 
loose considerable accuracy), or account for the point in each step of his programming. 

The Floating-Point System is constructed as a self-contained package which includes its own input, 
arithmetic, and output routines. It allows the programmer to use floating-point arithmetic without having 
to construct his own arithmetic subroutines. For example, the polynomial: 

Y = AX^ + BX^ + CX + D 

may be programmed as follows (the variables X and Y, and the parameters A, B, C, and D are stored in 
registers of the same name): 



J MS 
FGET A 
FMPY X 
FADD B 
FMPY X 
FADD C 
FMPY X 
FADD D 
FPUT 
FEXT 



I 7 



Y 



/ENTER FLOATING PACKAGE 

/LOAD PSEUDO AC 

/MULTIPLY 

/ADD 

/MULTIPLY 

/ADD 

/MULTIPLY 

/ADD 

/STORE 

/EXIT FLOATING PACKAGE 
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CHAPTER 2 



FLOATING-POINT REPRESENTATION 



A floating-point number consists of o mantissa and an exponent. For example, the decimal number 12 may 
be represented as: 

1200.0-10"^ 
120.00-10"^ 
12.000-10° 
1 .2000-10^ 
.12000-10^ 

etc . 

where the exponents are the numbers —1, —\, 0, etc. 

Since the PDP-8 is a binary machine, floating-point numbers are stored as floating-point binary internally. 
For example, the binary number 110 (6 decimal) may be represented as: 

(24-1/4 = 6) 
(12-1/2 = 6) 
(6-1 =6) 
(3-2 = 6) 
(3/2-4 = 6) 
(3/4-8 = 6) 

Notice that the binary exponent is always a signed integer. The PDP-8 Floating-Point System uses the 
convention: 

1/2 < I MANTISSA | < 1 . 

When this is true, the word is said to be normalized. 

The value of the number is then: 

MAMTiQCA oEXPONENT 
MANTISSA- 2 

where the MANTISSA is a signed quantity. The result of this convention is that more significant bits are 
retained. For example, the number .10 (decimal) is equal to: 
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11000.0-2 ' 
1100.00-2" 
110.000-2° 
11 .0000-2^ 
1 .10000-2^ 
.110000-2^ 

etc . 



|o.oo on 001 100 I 110 oil 001 100 I 110 on 001 100 no.... 

in binary . 

When this word Is stored in two 12-bit words (24 bits), the leading O's are nonsignificant and only 20 bits 
of significance are maintained. If the number is rewritten as: 
«-3 



o.n 001 100 no 



Oil 001 100 no 



on 001 100 no ... 



and the mantissa stored in two 12-bit words, 23 bits of significance are maintained. 

The exponent is stored in a third word making a total of three words for storage, 
sign of exponent 



sign of mantissa 



binary exponent 2"s complement 
signed quantity 



high order mantissa word 
low order mantissa word 



The number .1 (decimal) would be stored as: 

111 m 111 101 I 011001100110 I 011001100110 

or written in octal: 

111^ 3146 3146 

The address of this number would be considered 2146 if it were stored as follows: 

2146/7775 
2147/3146 
2150/3146 



The number -.1 (decimal) would be -.063146314 (octal) which isO.OOO 110 Oil 001 100 110 Oil Oil 100 
(binary). 

Normalized, this becomes: (2"^)g- (0. 11 001 100 110 011 001 100 110)2 
Complemented and incremented to become the^ negative 2's complement 



this becomes: 
which is: 



(2"'^)g.(i.oo no on ooi loo no on 010)2 

(2"^)g.(4 6 3 1 4 6 3 2 )g 
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This number would be stored (within octal) as: 
1115 exponent of -3 

4631 high order mantissa word 

4632 low order mantissa word 

Since the mantissa is greater (in magnitude) than 1/2 and less than 1, its binary point is considered to 
be between bit 0 and bit 1 of the high order mantissa word. 

Further examples: 

12 (decimal) 

1 1 00 . = {2") (0 . n 000000000000000000000) 

would be stored as (written in octal): 

0004 
3000 
0000 



Octal 


Decimal 




Floating Binary 




-1 


-1 


0001 


6000 


0000 


-10 


-8 


0004 


6000 


0000 


.4 


.5 


0000 


2000 


0000 


3 


3 


0002 


3000 


0000 


14 


12 


0004 


3000 


0000 


.2 


.25 


mi 


2000 


0000 


14.26074475 


12.3456 


0004 


3054 


1711 


-14.26074475 


12.3456 


0004 


4723 


6067 



Convert the decimal number 1 .6i-o floating -binary form for storage. 

An easy method to convert a decimal fraction to an octal fraction is illustrated below: 

.6 1.6,-, = 1.4631463K 

X 8 ^ 

4y~:^ = 1.100110011001100110011001 

X 8 , 

6rTr =(2 ) (0.11001100110011001100110) 

X 8 

3rTr = 0001 
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X 8 



1/ 


. o 




8 


a\ 

4; 


Q 
.O 




8 


6) 


.4 




8 


3) 


.2 




8 


1) 


.6 



ARITHMETIC 

Since floating-point numbers are stored in a three-register format, the floating-point system uses a "psuedo" 
floating accumulator (FAC) which consists of three registers in the floating-point package: 44, 45, and 46. 
Register 44 contains the exponent; 45 and 46 contain the high and low order parts of the mantissa, respec- 
tively . 



BASIC FLOATING-POINT COMMANDS 

The basic floating-point commands include the following: 

load floating accumulator 
store floating accumulator 
add to floating accumulator 
subtract from floating accumulator 
multiply by floating accumulator 
divide into floating accumulator 
normalize floating accumulator 

All arithmetic operations are called through an interpreter. The command codes have a format that is 
almost identical to the format of the memory reference instruction, namely: 



OP 


1 


z 


ADDRESS 



where the op code is from 000 to 1 1 1 or 0^ - 7_ . 

o o 

INTERPRETER 

The interpreter contains, at all times, the address of the memory location containing the next pseudo in- 
struction to be executed. This is initially stored when the program enters the interpreter using a JMS 
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instruction. When the interpreter encounters an instruction with an op code of 0 and with bits 8-1 1 of 
the pseudo instruction equal to 0, it exits to the next memory location. 



FLOATI NG-POl NT I NSTRUCTl ONS 



The floating-point instructions are: 

Op Code Mnemonic 

1 FADD 

2 FSUB 



Effect 

Floating Addition 

Add the contents of the effective address 
to the floating accumulator. 

Floating Subtract 

Subtract the contents of the effective address 
from the floating accumulator. 



3 FMPY Floating Multiply 

Multiply the floating accumulator by the 
contents of the effective address. 



4 FDIV Floating Divide 

Divide the floating accumulator by the 
contents of the effecitve address. 

5 FGET Floating Get 

Load the floating accumulator with the 
contents of the effective address. 



6 FPUT Floating Put 

Store the contents of the floating accumulator 
at the locations specified by the effective 
address. The contents of the floating accum- 
ulator are unchanged. 



7 FNOR Floating Normalize 

Normalize the contents of the floating 
accumulator. 

0 is decoded as follows: 

Bits 8-1 1 = 0000 Floating Exit 

Return control to following instruction 



= 0001 Floating Square 

Square the contents of the floating ac- 
cumulator 
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= 0010 



Floating Square Root 

Take the root of the absolute value of the 
floating accumulator 



= 0011-1111 



Expandable commands 



This may be summarized: 



FADD 



FSUB 



FDIV 



FMPY 



Y; 



Y; 



Y; 



Y; 



1000; C(FAC) + C(Y) C(FAC) 

2000; C(FAC) - C(Y) ^ C(FAC) 

3000; C(FAC) X C(Y) -> C(FAC) 

4000; C(FAC) T C(Y) -> C(FAC) 




Result is 
normalized 




FGET Y; 5000; C(Y) C(FAC) J 

FPUT Y; 6000; C(FAC) C(Y) 

FNOR ; 7000; C(FAC) normalized C(FAC) 

FEXT ; 0000; exit from interpreter to instruction following this command 
SQUARE ; 0001; C(FAC)2 C(FAC) 
SQROOT; 0002; C(FAC) C(FAC) 

The assembler recognizes all of these mnemonics except for SQUARE and SQROOT which may be defined 
as: 

SQUARE=0001 
SQROOT=0002 

The floating-point interpreter is entered with an effective JMS 5600. 

For example: 

SQROOT=0002 

*7 

5600 
*200 



B, 

$ 



FEXT 

HLT 

0003 

2000 

0000 

300 



JMS I 7 
FGET A 
SQROOT 
FPUT I B 



200/ 
201/ 
202/ 
203/ 
204/ 
205/ 
206/ 
207/ 
210/ 
211/ 



4407 
5206 
0002 
6611 
0000 
7402 
0003 
2000 
0000 
0300 
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when this program is started at 0200, it will halt at location 205. The state of the machine will be: 

floating accumulator contains 
2.0, i.e., (4.0)1/2 

register A contains 4,0 
answer stored here 



44/ 


0002 


45/ 


2000 


46/ 


0000 


206/ 


0003 


207/ 


2000 


210/ 


0000 


300/ 


0002 


301/ 


2000 


302/ 


0000 
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CHAPTER 3 
FLOATING-POINT INPUT/OUTPUT 



FLOATING-POINT INPUT 

The basic floating-point package contains an input routine to read characters from the 33 ASR keyboard. 
Numbers are read in in decimal and converted to the internal floating-point binary format. Input format 
is floating decimal. The number 726.7 may be read in in any of the following forms: 

726.7 
.7267E3 
.7267E+03 
+7267E-1 
etc . 

Input is terminated when a character is typed that is not a part of this format. The conversion of "12.0." 
would be terminated on the second "." and the binary number: 

000000000100 (octal 0004) 

01 1000000000 (octal 3000) 

000000000000 (octal 0000) 

would be in the floating-point accumulator upon completion of the conversion. 

Flags 

There are several flags associated with the input routine that are useful to the programmer. 

0056 This register is a switch that has the following meaning: 

If C(56) = 0, do not type a line-feed after a carriage-return was read. 
If C(56) = 7777 , type a line-feed when a carriage-return is inputted. 
This switch is initially set to 7717 . 

0057 This register contains the character that terminated the input con- 
version . 

0060 This register contains 0000 if no input conversion was made; i.e., a 

space or other terminator was initially typed. 
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The input routine is entered with an effective JMS 7400. It returns control to the instruction following 
the calling JMS upon receipt of a terminator. The floating accumulator contains the input number in 
normalized floating-binary. Register 0057 contains the terminating character in ASCII, and C(0060) in- 
dicates whether or not there was a valid input. 



For example: 



7400 
*7 

5600 
*200 

JMS I 5 /INPUT ROUTINE 

JMS I 7 /CALL FLOATING POINT 

FPUT A 
FEXT 
JMS I 5 
JMS I 7 
FPUT B 
FEXT 
HLT 

A, 0 
0 
0 

B, 0 
0 
0 

$ 

When this program is started at 0200 and the following is typed: 
X2.0Y 



The program will halt at location 0210, and A and B will contain 

A, 0 
0 

0 and C(57) = 0331, the second TERMINATOR 

B, 0002 
2000 
0000 



The first input was considered a 0 because a terminator "X" was inputted. 
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This program could be written to ignore the non-numeric information as follows: 



*5 




7400 




*7 




5600 




*200 




JMS 1 5 


/CALL INPUT ROUTINE 


TAD 60 


/ANY VALID INPUT? 


SNA CLA 




JMP .-3 


/NO - IGNORE 


JMS 1 7 


/YES 


FPUT A 


/STORE IT 


FEXT 




JMS 1 5 


/GET NEXT 


TAD 60 




SNA CLA 


/VALID? 


JMP .-3 


/NO - IGNORE 


JMS 1 7 


/YES 


FPUT B 


/STORE IT 


FEXT 




HLT /HALT 





A, 0 
0 
0 



B, 0 
0 
0 



Register 57 may be used for integrating control characters into the input. 



Rubout 

There is one special input character, the rubout. If it is struck before an input delimiter, the input rou- 
tine is restarted and previous numbers deleted. 

For example, assume the input routine has been entered. 
+- 

276 -§1T 

The input routine would exit with 1 (decimal) in the floating accumulator or: 

44/ 0001 
2000 
0000 
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FLOATING-POINT OUTPUT 

The basic floating-point package contains an output routine. Upon entry the contents of the floating ac- 
cumulator are converted to floating-point decimal and typed out on the ASR33in the following format: 

±O.XXXXXXXE±XX 

For example, if the floating accumulator contained: 

44/ 0002 
2000 
0000 

and the output routine were entered, 

+0.2000000E+01 
would be typed . 



Entry 

The output routine is entered by an effective JMS 7200. After outputting the contents of the floating ac- 
cumulator, it returns control to the instruction following the calling JMS instruction. The contents of the 
floating accumulator are lost. The floating -output routine has a flag or program switch in location 0055 
on page 0. 

If C(0055) does not equal 0, type a carriage-return/line-feed following each output. This location initi- 
ally contains 7771 . 



Program Example 

/solve the quadratic equation 

/ax2+bx-k:=o for values 

/of a, b, c. type out roots 



SQROOT=0002 

SQUARE=0001 

*5 7400 
7200 
5600 

*200 

KCC 
TLS 



/POINTER TO 
/POINTER TO 
/POINTER TO 



INPUT ROUTINE 
OUTPUT ROUTINE 
INTERPRETER 



BEGIN, JMS I 5 /INPUT A 

JMS I 7 /ENTER INTERPRETER 
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FMPY TWO 


/2.0 


FPUT A 


/STORE 2.0. A 


FEXT 




JMS 1 5 


/INPUT B 


JMS 1 7 


/ENTER INTERPRETER 


FPUT B 


/STORE B 


FEXT 




JMS 1 5 


/INPUT C 


JMS 1 7 


/ENTER INTERPRETER 


FMPY TWO 


/MULTIPLY BY 2. 


FMPY A 


/MULTIPLY BY 2A 


FPUT TEMP 


/4AC 


FGET B 




SQUARE 


/B SQUARED 


FSUB TEMP 


/B SQUARED -4AC 


SQROOT 


/TAKE SQUARE ROOT 


FPUT TEMP 


/STORE IT 


FGET B 




f~i AWW^ ^ k ilk 11 

FMPY MINI 


/-I • B = ■- B 


FPUT B 


/STORE 


FSUB TEMP 


/-B-SQUARE ROOT 


FDIV A 




FEXT 


/ANSWER IN FAC 


JMS I 6 


/OUTPUT IT 


JMS 1 7 


/ENTER INTERPRETER 


FGET B 


/-B 


FADD TEMP 


/-B + SQUARE ROOT 


FDIV A 




FEXT 


/ANSWER IN FAC 


JMS 1 6 


/OUTPUT IT 


JMP BEGIN 


/CONTINUE 


0002 


/CONSTANT 2.0 


2000 




0000 




0001 


/CONSTANT -1 .0 


6000 




0000 




0 




0 




0 




0 




0 




0 




0 




0 




0 




0 




0 




0 





TWO, 
MINI, 
TEMP, 
A, 
B, 
C, 
$ 

Both the input-conversion routine and the output-conversion routine use a typeout subroutine that contains 
the instructions: 
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TSF 

JMP .-1 

TLS 

CLA 



This means that the teleprinter flag must be set when these routines are entered or it must be in the process 
of typing. A TLS instruction con be put into the initialization section of a program. 



THE BASIC PACKAGE 



Subroutines 

When the floating-point interpreter encounters a 0 op code, it further decodes bits 8-11 . If these bits 
equal 0, the interpreter exits. If the bits are nonzero, they are used in a table look-up to specify the 
address of a subroutine. The called subroutine may use the floating-point interpreter, the input, or the 
output, but it may not u^e bits 8-1 1 to call another subroutine. The look-up table is on page 16 of the 
interpreter listing. For example, if the user wished to define a routine that negated the contents of the 
floating accumulator, the following steps would be taken: 



On page 6 of the interpreter listing, there is a routine to negate the floating accumulator. It is a sub- 
routine and has, as entry point, the address 6000. If the negate subroutine were to be called by 0010 in 
the interpreter mode, the word 6000 would be placed in address 6554 of the calling table. Input and out- 
put could be called in the interpreter mode if 7400 were placed in 6555 (001 1) and 7200 were placed in 
6556 (0012). 

NEGATE = 0010 
INPUT =0011 
OUTPUT =0012 
SQUARE = 0001 

*7 

5600 
*200 

KCC 

TLS 

JMS I 7 /ENTER INTERPRETER 

INPUT /CALL INPUT ROUTINE 

SQUARE /SQUARE IT 

NEGATE /CALL OUTPUT ROUTINE 

OUTPUT /CALL OUTPUT ROUTINE 

FEXT /EXIT 

HLT /HALT 

$ 
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DESCRIPTION OF BASIC FUNCTION 



Addition 



Floating-point addition is carried out by first aligning the binary points of the two numbers. This is ac- 
complished by scaling the smaller number to the right. Then the mantissas are both scaled right once so 
that overflow will not occur into the sign bit. A 2's complement addition of the mantissas is then made. 
The result is normalized and control returns to the interpreter. This may be represented as: 

Can operands be aligned? | 

Yes No 

Align Exponents 
Add Mantissas 
Normalize 

Return to Interpreter -4 

Subtraction 



Floating-point subtraction is accomplished by negating the operand, and then calling the addition sub- 
program . 

Negate Operand 
Call Addition 



Multiplication 

Floating-point multiplication is accomplished by adding the exponents together and then performing a 
double-precision multiplication. The result is normalized and control returns to the interpreter. 

Add Exponents 

Multiply Mantissas carrying result to 35 bits 

Normalize 

Return to Interpreter 



Put larger number in FAC 

I 



Division 

Floating-point division is accomplished by subtracting the exponent of the divisor from the exponent of 
the dividend. The mantissa is divided and the result is normalized. Control returns to the interpreter. 



No 



Yes 



Subtract Exponents 
Divide Mantissas 
Normalize 

Return to interpreter < 

Square 

Tiie square routine calls the multiplication routine internally. 

Square Root 

The square root is calculated using Newton's method in which an initial approximation is made and then 
each succeeding approximation is calculated. The routine exits when two successive approximations are 
equal to within the least significant bit of the mantissas. 

Form first approximation, X^, of y/ N: 
p-^ then: 

X.+1 = 1/2 (X. + ^) 

is I X. - X. . j < least significant bit? 




Yes 

Return to interpreter 

Error Flag 

Division by 0 causes C(61) to be incremented by 1 . The quotient is set to the highest positive number. 

Attempting to extract the square root of a negative number causes C(61) to be incremented by 1 . 
The root of the absolute value is taken. 

The contentsof 61 are set to 0 at the beginning of each divide and square root operation. 



+1 to error flag 

Set resj jit to highest possible 
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SUMMARY OF BASIC PACKAGE 



Entry Points 

5600 Arithmetic Interpreter 

7400 Floating Input 

7200 Floating Output 

NOTE: Both the input and the output routines require that register 7 contains 
the interpreter entry point: 5600. 



Flags 

55 If 7^0, type carriage-return/line-feed after output. 

56 If^O, follow each input carriage-return by a line-feed. 

57 Contains the input terminating character. 

60 Equals 0 if no valid input. 

61 Is nonzero if (a) divide by 0 or (b) square root of a negative number. 



Commands 



FADD 


1000 


Floating Add 


FSUB 


2000 


Floating Subtract 


FMPY 


3000 


Floating Multiply 


FDIV 


4000 


Floating Divide 


FGET 


5000 


Floating Get 


FPUT 


6000 


Floating Put 


FNOR 


7000 


Floating Normalize 


FEXT 


0000 


Floating Exit 


SQUARE 


0001 


Square 


SQROOT 


0002 


Square Root 




0003 





.... Expandable 
0017 
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Storage 

The floating accumulator is in registers: 

44 - Exponent 

45 - High Order Mantissa 

46 - Low Order Mantissa 

The basic floating-point package ( DEC-08-YQ1A-PB) uses memory locations: 
5-7; 40-61; 5600-7577 

FIXED TO FLOATING/FLOATING TO FIXED 
Since the floating-point package stores numbers in the following format: 



Signed Exponent t 2's Complement Signed Mantisa 



t 2's Complement Si{ 
Limplied Binary Point 



and since the exponent indicates where the real exponent is, this information may be used to either con- 
vert a floating-point number to fixed point or to convert a fixed-point number to floating point. 

For example, assume that there is an integer in the accumulator that is less in magnitude than 2047. To 
float this number, the following sequence of steps may be employed: 

DCA 45 /PUT INTO HIGH-ORDER MANTISSA 

DCA 46 /PUT 0 INTO LOW-ORDER MANTISSA 

TAD CI 3 /II (10) INTO 

C, DCA 44 /EXPONENT 

J MS I 7 /CALL INTERPRETER 

FNOR /NORMALIZE 

FEXT /LEAVE INTERPRETER 

C13, 0013 /II (DECIMAL) 

At point C, we have set the binary point of the integer to the right end of the high order mantissa word, 
or eleven (decimal) locations to the right of the implicit binary point. 

To float this number, the floating accumulator is scaled right until the exponent contains the location of 
the desired binary point. To fix the floating accumulator as an 11-bit signed integer, the following se- 
quence of coding may be employed: 
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CLA 

TAD 44 /FETCH EXPONENT 

SZA SMA /IS THE NUMBER <1 ? 

JMP .+3 /NO: 

CLA /YES: FIX IT TO 0 
JMP DONE+1 

TAD Ml 3 /NO: SET BINARY POINT AT 

SNA /II (10) PLACES TO RIGHT OF CURRENT POINT 

JMP DONE /IT IS ALREADY THERE: ALL DONE 

SMA /TEST TO SEE IF IT IS TOO LARGE 

JMP ERROR /YES: NUMBER >2**1] 

DC A 44 /NO: SET SCALE COUNT 

GO, CLL /O TO C(L) 

TAD 45 /FETCH MANTISSA 

SPA /|SIT<0? 

CML /YES: PUT A I IN LEFT BIT 

RAR /SCALE RIGHT 

DCA45 /RESTORE IT 

ISZ 44 /TEST IF SHIFTED ENOUGH 

JMP 00 /NO: CONTINUE 

DONE, TAD 45 /ANSWER IN C(AC) 

Ml 3, -13 /-II (DECIMAL) 



This may be coded as a subroutine. 

EXTENDED FLOATING-POINT PACKAGE 
The extended floating-point package contains the following additional commands: 

0003 Floating Sine 

Take the sine of the angle in the floating accumulator (considered to be in 
radians) and leave the result in the floating accumulator. 

0004 Floating Cosine 

Take the cosine of the angle in the floating accumulator (considered to be 
in radians) and leave the result in the floating accumulator. 

0005 Floating Arc Tangent 

Take the arc tangent of the number in the floating accumulator and leave 
the result (in radians) in the floating accumulator. 

0006 Floating Exponent 

Raise e to the C(FAC) power. Leave the result in the floating accumulator. 



0007 Floating Logarithm 

Take the natural logarithm of the absolute value of the number in the floating 
accumulator . 
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Sine 

The sine routine uses the following identities: 

SIN(-X)=-SIN(X) 

SI N(X)=SI N(2 ir N+F)=SI N(F) 

where 0<F<2'irand N is an integer: 

SIN(iT-F)=-SIN(F) 

Using these identities, F is reduced to the range -Tr/2<F<'i/2. 
If Y = 2F/Tr so that -1<F<1, then: 
SI N(X)=(C^ F+CgF^^+C^F^+C^F'^+C^F^) 



where: 



= 1 .57079631847 
= -0.64596371106 
=+0.07968967928 

o 

C_, = -0.00467376557 
=+0.00015148419 



The sine subroutine is valid over the range: 
-2iT .2047<X<2tt.2047 



Cosine 



The cosine routine uses the identity: 
COS(X)=SIN(it/2-X) 

It then uses the SINE routine. 



Arc Tangent 



The arc tangent routine uses the following identities: 

ARCTAN(-X)=-ARCTAN(X) 

IF X>, 1; then ARCTAN(X)=tt/2-ARCTAN(1/X) 

FOR 0<X<1, 
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X(A +A X^+A.x'^) 
ARCTAN(X) = — — — ■ = — 

Bq+B^,X^+B2x'^ 

where: 

Aq = +0.6402481953 
A^ =+0.4229908144 
A2 = +0.0264694361 
Bq = 40.6402487022 
B^ =+0.6363779373 
B2 =+0.1108328778 

The result is in the range: 

-'rT/2<ARCTAN(X)<'rr/2 
- «»<X< «» 

Logarithm 

The logarithm routine uses the identities: 

For X<1; 

LOG(X)=LOG(2'^.F) (1<F<2) 

=NLOG(2)+LOG(F) 
8 

LOG(l+Y)= I A.y' 
C=l ' 

where: 

A^ =+0.9999964239 

= -0.4998741238 

A3 = +0.3317990258 

A, =+0.2407338084 
4 

A^ =+0.1676540711 
5 

A, = -0.0953293897 
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= +0.0360884937 



Ao - -0.0064553442 

o 

for: 

0<X<1, the identity: 
LOG(X)=-LOG(l/X) is used. 



Floating Exponent 



The exponent routine uses the identity for XX), 



where N is on integer and <F<1 



2 C 
A-F+BF - 



2 
D+F 



^here: 



A = +9.95459578 
B - +0.03465735903 
C = +617.97226053 
D - +87.417497202 
Log^e^l .4426950409 

If X<0 

X 1 
e =- 



-X 

e 



Example, input A, B, and output: 

Y = LOG(COS(/VB)+/7rB) 

SQROOT=0002 /DEFINITIONS TO ASSEMBLER 

CO 5=0004 
LOG=0007 

*5 

7400 

7200 
5600 

/USES EXTENDED INTERPRETER 
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*200 
KCC 



BEGIN, JMS 1 5 


/INPUT A 


J MS 1 7 


/ENTER INTERPRETER 


FPUT A 


/STORE A 


FEXT 


/EXIT 


JMS 1 5 


/INPUT B 


JMS 1 7 


/ENTER INTERPRETER 


FPUT B 


/STORE B 


FMPY A 


/A-B 


SQROOT 


/EXTRACT ROOT 


FPUT TEMP 


/STORE IT 


FGET A 


/LOAD FAC WITH A 


FDIV B 


/DIVIDE BY B 


COS 


/TAKE COSINE 


FADD TEMP 


/ADD 


LOG 


/TAKE LOG. 


FEXT 




JMS 1 6 


/OUTPUT ANSWER 


JMP BEGIN 





A, 0 
0 
0 



B, 0 
0 
0 

TEMP, 0 
0 
0 



Output Controller 

There is an additional routine available that formats floating-point output. It is available with both the 
basic floating-point package and the extended package. 

The controller routine requires two parameters for output formatting. It is called by an effective JMS 7200. 
At this point: 

C(62) = total number of digits to be outputted. If C(62)=0, output in E format. 

C(AC) = number of digits to the right of the decimal point. If it equals 0, do 
not type a " . " . 

If the number in the floating accumulator is larger than the field width allows, "X's" will be typed. The 
sign is typed and leading O's are suppressed. 

Example: If the contents of the floating accumulator are 678.234 (decimal). 
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C(62) 



C(AC) 



Output 



3 
4 
4 
5 
6 
3 
2 
0 



0 

0 



+ 678 
+ 678 
+ 678.2 



2 
2 
2 
0 



+ 678.23 
+ 678.23 



+ 678. 
+ XX 



+ 0.678234E+0.3 



FLOATING POINT PACKAGE VERSIONS 



Four versions of the floating-point package are available: 
DEC-08-YQ1A-PB 

This is the basic floating-point package. It consists of the input/output package and the basic arithmetic 
instructions. Its core limits are: 

5-7; 40-61; 5600-7577 
DEC-08-YQ2A-PB 

This is the basic floating-point package with the output controller. Its limits are: 
7; 40-62; 5400-7577 

The output controller does not type a carriage-return/line-feed after output and, hence, the programmer 
must provide his own routine to do so. Because of the way in which the typeout routine in the floating- 
point packages are constructed, the user must construct similar typeout routines in order to avoid timing 
errors in the teleprinter. In other words, the floating-point package uses a routine similar to: 



to do its typing. The user must use a similar routine, i.e., one that waits for the teleprinter flag to be 
set before executing the TLS instruction. 

DEC-08-YQ3A-PB 

This is the basic floating-point package with the extended functions. In addition, two interpretive com- 
mands are provided for input and output. The additional interpretive commands are: 



TSF 

JMP .-1 

TLS 
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SINE 


3 


COSINE 


4 


ARCTANGENT 


5 


EXPONENTIAL 


6 


LOG 


7 


INPUT 


13 


OUTPUT 


14 



Its core limits are: 

7; 40-61 ; 4757-7577 

Using this package, the routine on page 3-14 and 3-15 for calculating: 
Y=LOG(COS(A/B)+ /a •B) may be rewritten as: 



SQROOT=2 

COS=4 

LOG=7 

INPUT=13 

OUTPUT=14 

*7 
5600 

*200 
KCC 
TLS 

BEGIN, JMS I 7 
INPUT 



/CALL INTERPRETER 
/READ A 
/STORE IT 
/READ B 



A, 
B, 

TEMP, 
$ 



FPUT A 
INPUT 
FPUT B 

FMPYA /A-B 
SQROOT 

FPUT TEMP /(A-B)**. 5 
FGET A 
FDIV B 
FCOS 

FADD TEMP 
FLOG 
OUTPUT 
FEXT 

JMP BEGIN 

0 

0 

0 

0 

0 

0 

0 

0 

0 
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DEC-08-YQ4A-PB 

This is the basic package, the output controller, and the extended functions. This package does not 
have the interpretive I/O commands of input and output. Its core limits are: 

7; 40-62; A557-7577 
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CHAPTER 4 



PROGRAM LISTINGS 



/FLOATING POINT ARITHMETIC INTERPRETER 







*40 






0040 


0000 


EXl, 


0 


/OPERAND STORAGE 


0041 


0000 


ACIH 


0 




0042 


0000 


ACIL, 


0 




0043 


0000 


OVERl 


0 




0044 


0000 


EXP 


0 


/F A 


0045 


0000 




0 




0046 


0000 


LORD 


0 




0047 


0000 


OVER 2 


0 




0050 


0000 


FXPl 


0 




0051 


0000 








0059 


0000 


FPAn 


0 






0000 




n 




0054 


0000 


O 1 


n 

V 




UUO 1 


r\r\f\r\ 
uuuu 


PI A/^ 

*5600 


u 


/Ml\lin#VlCI IS^ t.l\l\Wl\ rLMV»7 


5600 


0000 


FPNT, 


0 




5601 


7300 




CLA CLL 




5602 


3043 




DC A OVERl 




5603 


3047 




DCA OVER2 




5604 


1600 




TAD 1 FPNT 


/GET NEXT INSTRUCTION 


5605 


3253 




DCA JUMP 




5606 


1253 




TAD JUMP 




5607 


0263 




AND PAGENO 


/GET PAGE BIT 


5610 


7650 




SNA CLA 


/PAGE ZERO? 


5611 


5214 




JMP .+3 


/YES 


5612 


1261 




TAD MASK5 


/NO 


5613 


0200 




AND FPNT 


/C(FPNT)0-4 CONTAINS PAGE 


5614 


3256 




DCA ADDR 




5615 


1262 




TAD MASK7 


/GET 7 BIT ADDRESS 


5616 


0253 




AND JUMP 




5617 


1256 




TAD ADDR 




5620 


3256 




DCA ADDR 




5621 


1264 




TAD INDRCT 


/INDIRECT BIT=1? 


5622 


0253 




AND JUMP 




5623 


7650 




SNA CLA 




5624 


5227 




JMP LOOPOl 


/NO-GO ON 


5625 


1656 




TAD 1 ADDR 


/YES DEFER 


5626 


3256 




DCA ADDR 




5627 


2200 


LOOPOl , 


ISZ FPNT 




5630 


1656 




TAD ! ADDR 




5631 


3040 




DAC EXl 


/EXPONENT 


5632 


1256 




TAD ADDR 
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5633 


3257 




DCA SAVE 


5634 


2257 




ISZ SAVE 


5635 


1657 




TAD 1 SAVE 


5636 


3041 




DCA ACIH 


5637 


2257 




ISZ SAVE 


5640 


1657 




TAD 1 SAVE 


5641 


3042 




DAC ACIL 


5642 


1253 




TAD JUMP 


5643 


7106 




CLL RTL 


5644 


7006 




RTL 


5645 


0260 




AND MASK3 


5646 


1265 




TAD TABLE 


5647 


3254 




DCA JUMP2 


5650 


1654 




TAD 1 JUMP2 


5651 


3254 




DCA JUMP2 


5652 


5654 




JMP 1 JUMP2 


5653 


0000 


JUMP, 


0 


5654 


0000 


JUMP2, 


0 


5655 


0000 


G02, 


0 


5656 


0000 


ADDR, 


0 


5657 


0000 


SAVE, 


0 


5660 


0017 


MASK3, 


0017 


5661 


7600 


MASK5, 


7600 


5662 


0177 


MASK7, 


0177 


5663 


0200 


PAGENO, 


0200 


5664 


0400 


INDRCT, 


0400 


5665 


5666 


TABLE, 


.+1 


5666 


5742 




EXIT 


5667 


5716 




FLAD 


5670 


5737 




FLSU 


5671 


5761 




FLMY 


5672 


6305 




FLDV 


5673 


5676 




FLGT 


5674 


5705 




FLPT 


5675 


5773 




NORF 


5676 


1040 


PLOT, 


TAD EXl 


5677 


3044 




DCA EXP 


5700 


1041 




TAD ACIH 


5701 


3045 




DCA HORD 


5702 


1042 




TAD ACIL 


5703 


3046 




DCA LORD 


5704 


5201 




JMP FPNT+1 


5705 


1044 


FLPT, 


TAD EXP 


5706 


3656 




DCA 1 ADDR 


5707 


2256 




ISZ ADDR 


5710 


1045 




TAD HORD 


5711 


3656 




DCA 1 ADDR 


5712 


2256 




ISZ ADDR 


5713 


1046 




TAD LORD 


5714 


3656 




DCA 1 ADDR 


5715 


5201 




JMP FPNT+1 


5716 


4771 


FLAD, 


JMS 1 ALGN 


5717 


5201 




JMP FPNT+1 


5720 


4772 




JMS 1 UNORM 



/HIGH ORDER MANTISSA 



/LOW ORDER MANTISSA 



/GET BITS 0-2, IE OPCODE 
/LOOKUP IN TABLE 



/GO THERE 



/TABLE USED IN INTERPRETING 
/BITS 0-2 OF PSEUDO 
/INSTRUCTION 

/IF OPCODE=0, GO TO EXIT 
/AND INTERPRET BITS 8-11 



/FGET=5 



/FPUT=6 



/FLAD=1 - FIRST ALIGN EXPONENTS 
/RETURN IF NO ALIGNMENT IS POSSIBLE 
/LARGER OF THE TWO IS IN F.A. 
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5721 


7100 




CLL 




5722 


1043 




TAD OVERl 


/TRIPLE PRECISION ADDITION 


5723 


1047 




TAD OVER2 


/SINCE BITS ARE SHIFTED 


5724 


3047 




DCA OVER2 


/RIGHT 


5725 


7004 




RAL 




5726 


1042 




TAD ACIL 




5727 


1046 




TAD LORD 




5730 


3046 




DCA LORD 






7004 








5732 


1041 




TAD ACIH 




5733 


1045 




TAD HORD 




5734 


3045 




DCA HORD 




5735 


4770 




JMS 1 NORM 


/NORMALIZE THE RESULT 


5736 


5201 




JMP FPNT+1 




5737 


4741 


FLSU, 


JMS 1 OPMINS 


/FSUB=2 - NEGATE THE OPERAND 


5740 


5316 




JMP FLAD 


/ADD 


5741 


6400 


OPMINS, 


MINUS2 




5742 


1253 


EXIT, 


TAD JUMP 


/OPCODE=0 


5743 


0260 




AND MASK3 


/ARE BITS 8-1 1=0? 


5744 


7450 




SNA 




5745 


5600 




JMP 1 FPNT 


/YES=FEXT 


5746 


1360 




TAD ACON6 


/LOOKUP ON TABLE 


5747 


3254 




DCA JUMP2 




5750 


1654 




TAD 1 JUMP2 




575] 


3254 




DCA JUMP2 




5752 


1200 




TAD FPNT 




5753 


3255 




DCA G02 




5754 


4654 




JMS 1 JUMP2 


/CALL AS A SUBROUTINE 


5755 


1255 




TAD G02 


/RESTORE F.P. POINTER 


5756 


3200 




DCA FPNT 




5757 


5201 




JMP FPNT+1 


/GET NEXT PSEUDO INSTRUCTION 


5760 


6544 


ACON6, 


TABLE6-1 


/CALLING CAN BE TO A DEPTH ONE 


5761 


7201 


FLMY, 


CLA lAC 


/FMPY=3 


5762 


1040 




TAD EXl 




5763 


1044 




TAD EXP 


/ADD EXPONENTS TOGETHER 


5764 


3044 




DCA EXP 




5765 


4767 




JMS 1 MULT 


/MULTIPLY 


5766 


5201 




JMP FPNT+1 




5767 


6221 


MULT, 


DMULT 




5770 


6600 


NORM, 


DNORM 




577] 


6020 


ALGN, 


ALIGN 




5772 


6564 


UNORM, 


DUNORM 




5773 


4770 


NORF, 


JMS 1 NORM 




5774 


5201 




JMP FPNT+1 








*6000 






6000 


0000 


ACMINS, 


0 


/ROUTINE TO PERFORM 


6001 


7300 




CLL CLA 




6002 


1047 




TAD OVER2 


/TRIPLE PRECISION NEGATION 


6003 


7041 




CMA lAC 


/OF FLOATING AC 


6004 


3047 




DCA OVER2 




6005 


1046 




TAD LORD 




6006 


7040 




CMA 




6007 


7430 




SZL 
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oU 1 U 


71 A1 
/ 1 01 




CLL lAC 


oUI 1 


o046 




DC A LORD 


6012 


1 045 




TAD HORD 


6013 


7040 




CMA 


6014 


7430 




SZL 


6015 


7101 




CLL lAC 


6016 


3045 




DC A HORD 


6017 


5600 




JMP 1 ACMINS 


6020 


0000 


All Ik 1 

ALIGN, 


0 


6021 


1045 




TAD HORD 


6022 


7640 




SZA CLA 


6023 


5227 




JMP .+4 


6024 


t ^ A / 

1046 




TAD LORD 


6025 


7650 




SNA CLA 


6026 


COO ^ 

5337 




JMP NOHERE 


6027 


1 041 




TAD ACl H 


6030 


7640 




C~7 A /^l A 

SZA CLA 


6031 


5235 




JMP .+4 


6032 


1 042 




T A r\ A ^ 1 1 

TAD ACl L 


60oo 


7Z CA 

7650 




C K. 1 A ^1 A 

SNA CLA 


6034 


5620 




IKiin 1 Al 1 ^ K 1 

JMP 1 ALIGN 


6035 


1 A >( A 

1 040 




TAD EXl 


6036 


~7f\A 1 

7041 




I 1 A 1 A 

CMA lAC 


6Uo/ 


1 f\A A 

1 044 




TAP* CVD 

TAD LXr 


6040 


7yl CA 
7450 




CKI A 

SNA 


6041 


CO! >1 

Do 14 




JMr DUNb 


604z 


/jOO 




C K A A 

SMA 


604o 


/04I 




/^kX A 1 A /~ 

CMA lAC 


6U44 


oo4z 




UCA AMOUN 1 


6045 


1 o42 




T A r\ A k A /^l 1 K. IT 

TAD AMOUNT 


6046 


1 343 




T A r\ TCCTO 

TAD TEST2 


A~7 

6047 


7700 




C l X A ^1 A 

SMA CLA 


6050 


CO cz 

5256 




JMP .+6 


Z.f\C1 

6051 


A'il Z 

4316 




JMS OUTGO 


6052 


7>l OA 

7430 




SZL 


z CO 

6053 


1 O CA 

1 350 




T A r\ T A O 

TAD TAG2 


6054 


1347 




TAD TAGl 


6055 


5325 




JMP NOGO 


6056 


4316 




JMS OUTGO 


6057 


7420 




SNL 


6060 


1350 




TAD TAG2 


6061 


1347 




TAD TAGl 


6062 


3344 




DC A TEST3 


6063 


1342 




TAD AMOUNT 


6064 


7041 




^ fc 1 A 1 A 

CMA lAC 


6065 


1 744 




TAD 1 TEST3 


6066 


3744 




DCA 1 TEST3 


6067 


2344 




ISZ TEST3 


6070 


1344 




TAD TEST3 


6071 


3345 




DCA TEST4 


6072 


2345 




ISZ TEST4 


6073 


1345 




TAD TEST4 


6074 


3346 




DCA TEST5 


6075 


2346 




ISZ TEST5 



/SUBROUTINE TO ALIGN 
/BINARY POINTS FOR 
/ADD-SUBTRACT 

/IS MANTISSA ZERO? 

/YES 

/IS OPERAND ZERO? 



/BOTH ARE ZERO-EXIT 



/ARE EXPONENTS EQUAL? 
/YES 



/CAN EXPONENTS BE ALIGNED? 

/YES 

/NO 



/SET UP ADDRESSES 
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6076 


71 00 


SHIFT, 


CLL 


6077 


1744 




TAD 1 TEST3 


6100 


7510 




SPA 


6101 


7020 




CML 


6102 


7010 




RAR 


6103 


3744 




DCA 1 TESTS 


6104 


1745 




TAD 1 TEST4 


6105 


7010 




RAR 


6106 


3745 




DCA 1 TEST4 


6107 


1746 




TAD 1 TEST5 


6110 


7010 




RAR 


6111 


3746 




DCA 1 TEST5 


6112 


2342 




ISZ AMOUNT 


6113 


5276 




JMP SHIFT 


6114 


2220 


DONE, 


ISZ ALIGN 


6115 


5620 




JMP 1 ALIGN 


6116 


0000 


OUTGO, 


0 


6117 


1040 




TAD EXl 


6120 


7041 




CMA lAC 


6121 


1044 




TAD EXP 


6122 


7004 




RAL 


6123 


7200 




CLA 


6124 


5716 




JMP 1 OUTGO 


6125 


3344 


NOGO, 


DCA TEST3 


6126 


1744 




TAD 1 TEST3 


6127 


3044 




DCA EXP 


6130 


2344 




ISZ TESTS 


6131 


1744 




TAD 1 TESTS 


6132 


3045 




DCAHORD 


6133 


2344 




ISZ TESTS 


6134 


1744 




TAD 1 TESTS 


6135 


3046 




DCA LORD 


6136 


5620 




JMP 1 ALIGN 


6137 


1040 


NOHERE, 


TAD EXl 


6140 


3044 




DCA EXP 


6141 


5314 




JMP DONE 


6142 


0000 


AMOUNT, 


0 


6143 


0030 


TEST2, 


0030 


6144 


0000 


TEST3, 


0 


6145 


0000 


TEST4, 


0 


6146 


0000 


TEST5, 


0 


6147 


0044 


TAGl, 


EXP 


6150 


777A 


TAG2, 


EXl -EXP 


6151 


5601 


RETN2, 


FPNT+1 


6152 


1362 


ERROR! , 


TAD GOOF 


6153 


3044 




DCA EXP 


6154 


1362 




TAD GOOF 


6155 


3045 




DCA HORD 


6156 


7040 




CMA 


6157 


3046 




DCA LORD 


6160 


2061 




ISZ FLAG 


6161 


5751 




JMP 1 RETN2 


6162 


2777 


GOOF, 


3777 



/THIS ROUTINE DOES 
/THE ACUTAL SHIFTING 



/DETERMINE WHICH TO SHIFT 



/CAN'T BE ALIGNED 
/LARGEST GOES INTO FAC 



/MANTISSA=0 



/DIVISION BY ZERO 
/SET TO LARGEST + VALUE 



/SET FLAG 
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6163 


0000 


SQUARE, 


0 


6164 


4407 




JMS 1 0007 


6165 


6052 




FPUT FPACl 


6166 


3052 




FMPY FPACl 


6167 


0000 




FEXT 


6170 


5763 




JMP 1 SQUARE 


6171 


0000 


EX1T6, 


0 


6172 


5771 


*6200 


JMP 1 EXIT6 


6200 


0000 


DIVl, 


0 


6201 


7300 




CLA CLL 


6202 


1045 




TAD HORD 


6203 


7510 




SPA 


6204 


71 20 




CLL CML 


6205 


7010 




RAR 


6206 


3045 




DC A HORD 


6207 


1046 




TAD LORD 


6210 


7010 




RAR 


6211 


3046 




DC A LORD 


6212 


1047 




TAD OVER2 


6213 


7010 




RAR 


6214 


3047 




DCA OVER2 


6215 


7100 




CLL 


6216 


2044 




ISZ EXP 


6217 


7000 




NOP 


6220 


5600 




JMP 1 DIVl 


6221 


0000 


DMULT, 


0 


6222 


7300 




CLA CLL 


6223 


1363 




TAD SMACLA 


6224 


3347 




DCA SNSWIT 


6225 


4336 




JMS SIGN 


6226 


1042 




TAD ACIL 


6227 


3756 




DCA 1 MP2PT 


6230 


1046 




TAD LORD 


6231 


4755 




JMS 1 MP4PT 


6232 


7200 




CLA 


6233 


1757 




TAD 1 MP5PT 


6234 


3047 




DCA OVER2 


6235 


1045 




TAD HORD 


6236 


3756 




DCA 1 MP2PT 


6237 


1042 




TAD ACIL 


6240 


4755 




JMS 1 MP4PT 


6241 


1047 




TAD OVER2 


6242 


3047 




DCA OVER2 


6243 


7004 




RAL 


6244 


1757 




TAD 1 MP5PT 


6245 


3367 




DCA D 


6246 


7004 




RAL 


6247 


3370 




DCA KEEP 


6250 


1041 




TAD ACIH 


6251 


3756 




DCA 1 MP2PT 


6252 


1046 




TAD LORD 


6253 


4755 




JMS 1 MP4PT 



/DUMMY SUBROUTINE 



/SHIFT FAC RIGHT 



/DOUBLE PRECISION MULTIPLY 
/SAVE PRODUCT TRIPLE PRECISION 

/CALLS A SINGLE PRECISION 
/MULTIPLY 3 TIMES 



4-6 



6254 


1047 




TAD OVER2 


6255 


3047 




DCA OVER2 


6256 


7004 




RAL 


6257 


1757 




TAD 1 MP5PT 


6260 


1367 




TAD D 


6261 


3367 




DCA D 


6262 


7004 




RAL 


6263 


1370 




TAD KEEP 


6264 


3370 




DCA KEEP 


6265 


1045 




TAD HORD 


6266 


3756 




DCA 1 MP2PT 


6267 


1041 




TAD ACIH 


6270 


4755 




JMS 1 MP4PT 


6271 


1367 




TAD D 


6272 


3046 




DCA LORD 


6273 


7004 




RAL 


6274 


1757 




TAD 1 MP5PT 


6275 


1370 




TAD KEEP 


6276 


3045 




DCA HORD 


6277 


4760 




JMS 1 NORMF 


6300 


3047 




DCA OVER2 


6301 


2365 




ISZ SGN 


6302 


5621 




JMP 1 DMULT 


6303 


4773 




JMS 1 MINS 


6304 


5621 




JMP 1 DMULT 


6305 


1041 


FLDV, 


TAD ACIH 


6306 


7640 




SZA CLA 


6307 


5313 




JMP .+4 


6310 


1042 




TAD AC! L 


6311 


7650 




SNA CLA 


6312 


5774 




JMP 1 ERROR 


6313 


1040 




TAD EXl 


6314 


7041 




CMA lAC 


6315 


1044 




TAD EXP 


6316 


7001 




lAC 


6317 


3044 




DCA EXP 


6320 


1362 




TAD SPACLA 


6321 


3347 




DCA SNSWIT 


6322 


4336 




JMS SIGN 


6323 


4761 




JMS 1 DIVIDE 


6324 


1757 




TAD 1 MP5PT 


6325 


1041 




TAD ACIH 


6326 


7630 




SZL CLA 


6327 


7001 




lAC 


6330 


3042 




DCA ACIL 


6331 


3041 




DCA ACIH 


6332 


2365 




ISZ SGN 


6333 


4773 




JMS 1 MINS 


6334 


5735 




JMP 1 .+1 


6335 


5720 




FLAD+2 


6336 


0000 


SIGN, 


0 


6337 


1366 




TAD REST 


6340 


3365 




DCA SGN 



/DIVISION BY ZERO 



/SUBTRACT EXPONENTS 



/SET UP SIGNS 
/DIVIDE 

/ROUND OFF IN 23RD BIT 



/TEST SIGN 

/NEGATE 

/ADD ROUNDING 

/TEST SIGN OF RESULT 
/SET UP BY MULTIPLY AND 
/DIVIDE 
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6341 


1045 




TAD HORD 


6342 


7700 




SMA CLA 


6343 


5346 




JMP .+3 


6344 


4773 




JMS 1 MINS 


6345 


2365 




ISZ SGN 


6346 


1041 




TAD ACIH 


6347 


7700 


SNSWIT, 


SMA CLA 


6350 


5736 




JMP 1 SIGN 


6351 


4771 




JMS 1 MINS2 


6352 


2365 




ISZ SGN 


6353 


7000 




NOP 


6354 


5736 




JMP 1 SIGN 


6355 


6437 


MP4PT, 


MP4 


6356 


6471 


MP2PT, 


MP2 


6357 


6465 


MP5PT, 


MP5 


6360 


6600 


NORMF, 


DNORM 


6361 


6472 


DIVIDE, 


DUBDIV 


6362 


7710 


SPACLA, 


SPA CLA 


6363 


7700 


SMACLA, 


SMA CLA 


6364 


5601 


RETURN, 


FPNT+1 


6365 


0000 


SGN, 


0 


6366 


7776 


REST, 


7776 


6367 


0000 


D, 


0 


6370 


0000 


KEEP, 


0 


6371 


6400 


MINS2, 


MINUS2 


6372 


6420 


RAR2, 


DIV2 


6373 


6000 


MINS, 


ACMINS 


6374 


6152 


ERROR, 
*6400 


ERRORl 


6400 


0000 


MiNUS2, 


0 


6401 


7300 




CLA CLL 


6402 


1043 




TAD OVERl 


6403 


7041 




CMA lAC 


6404 


3043 




DCA OVERl 


6405 


1042 




TAD ACIL 


6406 


7040 




CMA 


6407 


7430 




SZL 


6410 


7101 




CLL lAC 


6411 


3042 




DCA ACIL 


6412 


1041 




TAD ACIH 


6413 


7040 




CMA 


6414 


7430 




SZL 


6415 


7101 




CLL lAC 


6416 


3041 




DCA ACIH 


6417 


5600 




JMP 1 MINUS2 


6420 


0000 


DIV2, 


0 


6421 


7300 




CLA CLL 


6422 


1041 




TAD ACIH 


6423 


7510 




SPA 


6424 


7120 




CLL CML 


6425 


7010 




RAR 


6426 


3041 




DCA ACIH 


6427 


1042 




TAD ACIL 



/OR SPA CLA 



/-ACIH, ACIL 
/AClH,AClL/2 



/NEGATE OPERAND 
/TRIPLE PRECISION 



/SHIFT OPERAND RIGHT 
/TRIPLE PRECISION 
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6430 


7010 




RAR 




3049 




DCA ACIL 




1 043 




TAD OVERl 


6433 


7010 




RAR 


6434 


3043 




DCA OVERl 


6435 


7100 




CLL 


6436 


5620 




IMP 1 DIV2 


6437 


0000 


MP4, 


0 


6440 


3266 




DCA MPl 


6441 


3265 




DCA MP5 


6442 


1270 




TAD THIR 


6443 


3267 




DCA MPS 


6444 


7100 




CLL 


6445 


1266 




TAD MPl 


6446 


7010 




RAR 


6447 


3266 




DCA MPl 


6450 


1265 




TAD MP5 


6451 


7420 




SNL 


6452 


5255 




JMP .+3 


6453 


7100 




CLL 


6454 


1271 




TAD MP2 


6455 


7010 




RAR 


6456 


3265 




DCA MP5 


6457 


2267 




ISZ MPS 


6460 


5245 




JMP MP4+6 


6461 


1266 




TAD MPl 


6462 


7010 




RAR 


6463 


7100 




CLL 




*>A^7 




IMP 1 MP4 
jivir 1 ivir*r 




uuuu 




n 


A4AA 


nnnn 


ivvr 1 f 


0 


A^A7 


\J\J\J\J 


iviro 1 






77A4 


TH IR 


77A4 


Aid.71 


nnnn 


MP9 




6472 


0000 


DUBDIV, 


0 


6473 


7300 




CLA CLL 


6474 


3051 




DCA QUOL 


6475 


1344 




TAD MIF 


6476 


3267 




DCA MPS 


6A77 


5306 




JMP DVX 


6500 


1046 


DV3, 


TAD LORD 


6501 


7004 




RAL 


6502 


3046 




DCA LORD 


6503 


1045 




TAD HORD 


6504 


7004 




RAL 


6505 


3045 




DCA HORD 


6506 


1042 


DVX, 


TAD ACIL 


6507 


1046 




TAD LORD 


6510 


3271 




DCA MP2 


6511 


7004 




RAL 


6512 


1045 




TAD HORD 


6513 


1041 




TAD ACIH 


6514 


7420 




SNL 



/SINGLE PRECISION MULTIPLY 
/1 2 BITS BY 12 BITS 



/DOUBLE PRECISION DIVIDE 



4-9 



6515 


5321 


6516 


3045 


6517 


1271 


6520 


3046 


6521 


7200 


6522 


1051 


6523 


7004 


6524 


3051 


6525 


1047 


6526 


7004 


6527 


3047 


6530 


2267 


6531 


5300 


6532 


1051 


6533 


3046 


6534 


1045 


6535 


7106 


6536 


3265 


6537 


1047 


6540 


3045 


6541 


3047 


6542 


1265 


6543 


5672 


6544 


7751 


6545 


6163 


6546 


6656 


6547 


6171 


6550 


6171 


6551 


6171 


6552 


6171 


6553 


6171 


6554 


6171 


6555 


6171 


6556 


6171 


ODD/ 


O 1 / 1 


OOOU 


A'l'7^ 
O 1 / 1 


ODO 1 


0 1 / 1 


AKAO 


Al 71 
O 1 / 1 


A RA'i 


Al 71 


6564 


0000 


OOOO 


4220 


6566 


4772 


6567 


2040 


6570 


7000 


6571 


5764 


6572 


6200 


6600 


0000 


6601 


7300 


6602 


3255 


6603 


3254 


6604 


1045 


6605 


7510 



DV2, 



MIF, 
TABLE6, 



RARl, 
*6600 
□NORM, 



JMP DV2-1 
DC A HORD 
TAD MP2 
DCA LORD 
CLA 

TAD QUOL 
RAL 

DCA QUOL 
TAD OVER2 
RAL 

DCA OVER2 
I5Z MPS 
JMP DV3 
TAD QUOL 
DCA LORD 
TAD HORD 
CLL RTL 
DCA MP5 
TAD OVER2 
DCA HORD 
DCA OVER2 
TAD MP5 
JMP I DUBDIV 
7751 

SQUARE 

SQROOT 

EXIT6 

EXIT6 

EXIT6 

EXIT6 

EXIT6 

EXIT6 

EXIT6 

EXIT6 

EXIT6 

EXIT6 

EXIT6 

EXIT6 

EXIT6 



DUNORM, 0 



JMS DIV2 
JMS I RARl 
ISZ EXl 
NOP 

JMP I DUNORM 
DIVl 

0 

CLA CLL 
DCA AMTl 
DCA SIGNl 
TAD HORD 
SPA 



/TABLE FOR INTERPRETATION 
/OF BITS 8-11 

/CONTAINS ABSOLUTE ADDRESSES 

/OF PROGRAMS CALLED AS 

/SUBROUTINES 

/EXIT6=A DUMMY OR NOP 



/SHIFT OPERAND RIGHT 



/SUBROUTINE TO NORMALIZE 
/FLOATING ACCUMULATOR 



/IS MANTISSA NEGATIVE? 
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6606 


2/54 




1 C 7 CI ^ K. 1 1 

IbZ bIGNl 


/\/n c 
/YbS 


660/ 


~7 L Ar\ 

7640 




C 7 A /"I A 


/IS MANTIS5A=0? 


z z 1 r\ 

661 0 


COT "7 

521 7 




JMP G06 


. /NO 


66 1 1 


1 046 




1 AU LORD 




66 1 z 


7Z r\ 
/640 




C 7 A r'\ A 

iZA CLA 




66 1 o 


COT 7 

52 1 / 




JMr GCj6 




66 1 4 


1 04/ 




T A r\ /^\ /CD o 
lAU (JVtK2 




66 1 0 


/650 




oNA CLA 




66 1 6 


5251 




IKA D C V ITO 

JMr tAI 1 2 


/Ybb 


66 1 / 


1 254 


r\A 

\J\JO, 


T A n c ? ^ K n 
1 AU oIOIN 1 


/NO 


66 zO 


/640 




oZA CLA 


/kip/^ ati\/po 
/ N t 1 1 V t r 


ZZ OT 

66zl 


46 5o 




JMb 1 NtC? 


/ Ybb 


z z oo 
66zz 


1 045 


1 /^D 

LUr, 


1 AU HUKU 


A A/ II 1 CUICT DC T/^/^ CADO 

/WILL bnlrl bb 1 OO rAK r 


Z Z TD 

662o 


TK r\A 

/ 1 04 




D A 1 /^l 1 

KAL CLL 




Z Z O /I 

66z4 


//I 0 




C D A r'\ A 

orA CLA 




z z o c 

6625 


5241 




1 1 / D C V IT1 

JMr bAl I 1 


/Ybb 


z z oz 
6626 


1 A y( 7 
1 04/ 




T A r\ /^\ / C D o 

TAD UVbK2 




6627 


71 A>( 

71 04 




^11 DAI 

CLL KAL 




z z or\ 

6630 


O A /( 7 

3047 




UCA C)VhK2 




6631 


1 046 




TAD LORD 


/k 1 CI 1 1 l~T JiAAKIXICCA 1 IT r"X 

/NO SHIFT MANTISSA LEFT 


Z Z O 

6632 


7004 




n A 1 

RAL 




6633 


3046 




DCA LORD 




6634 


1 045 




TAD HORD 




6635 


7004 




RAL 




z z o z 

6636 


3045 




DCA HORD 




Z Z 

6637 


2255 




1 C 7 A k A T 1 

IbZ AMTl 


/^l 1 K. IT K 1 /^C T 1 A A C C CLJ 1 CT C 1 

/COUNI NO. Or 1 IMbS SHIrlbl 


6640 


Dill 




I K A D 1 /^D 

JMr LOr 




Z Z 1 

6641 


1 O C C 

1 255 


C V IT 1 

bXITl , 


TAr\ A/iATI 

TAD AM r 1 


//^/^DDC^T CVD/^KICK.IT 

/COKKbCI bAPONbNI 


ZZ /f o 

6642 


7A 1 

704 1 




K.hl\l\ lAC 




Z Z y( O 

6643 


r\A A 

1 044 




T A r\ C V D 

1 AU bXr 




6644 


O A /( /I 

o044 




A C V D 

UCA cAr 




L L A C 

664o 


1 254 




T A r\ C 1 ^ K 1 1 

1 AU blON 1 


/k ic/^ ati\/co 
/NbGAI IVb r 


6646 


7Z /( A 

/640 




C 7 A r'X A 

oZA CLA 




664/ 


A A CO 

4653 




IKAC 1 KIC/^ 

JMo 1 lNbC» 


/ Y to 


6650 


c z f\r\ 

5600 




1 k A n I r\ K 1 x a 

JMP 1 DNORM 




6651 


3044 


EXIT2, 


DCA EXP 


/SET TO ZERO 


6652 


5600 




JMP 1 DNORM 




6653 


6000 


NEG, 


ACMINS 




6654 


0000 


SIGN!, 


0 




6655 


0000 


AMTl , 


0 




6656 


0000 


SQROOT, 


0 


/FLOATING SQUARE ROOT 


6657 


3362 




DCA FLAGl 


/TAKES ROOT OF ABSOLUTE 


6660 


A A /^T 

4407 




JMS 1 007 




6661 


6052 




FPUT FPACl 


/\ / A 1 IIP 

/VALUE 


6662 


0000 




FbXT 


/NEWTON'S METHOD IS USED 


6663 


1045 




TAD HORD 




6664 


771 A 

771 0 




CD A /^l A 

bPA CLA 




6665 


CO C 1 

5351 




JMP bObNDI 


/NUMBER IS NEGATIVE 


A AAA 

6666 


\ 044 




T A n P V D 

1 AU cAr 




6667 


7100 




CLL 




6670 


7510 




SPA 




6671 


7020 




CML 




6672 


7010 




RAR 




6673 


3356 




DCA ITER! 


/MAKE FIRST APPROXIMATION 



4- 



11 



6674 


7430 




SZL 


6675 


2356 




ISZ ITERl 


6676 


7000 




NOP 


6677 


1361 




TAD SQCONl 


6700 


3357 




DCA ITERl+1 


6701 


3360 




DCA ITERH-2 


6702 


1053 




TAD FPACl+1 


6703 


7640 




SZA CLA 


6704 


5310 




JMP CLCU 


6705 


1054 




TAD FPACl+2 


6706 


7650 




SNA CLA 


6707 


5354 




JMP SQEND 


6710 


4407 


CLCU, 


JMS 1 0007 


671 1 


5052 




FGET FPACl 


6712 


4356 




FDIV ITERl 


6713 


1356 




FADD ITERl 


6714 


0000 




FEXT 


6715 


7240 




CLA CM A 


6716 


1044 




TAD EXP 


6717 


3044 




DCA EXP 


6720 


1044 




TAD EXP 


6721 


7041 




CMA lAC 


6722 


1356 




TAD ITERl 


6723 


7640 




SZA CLA 


6724 


5345 




JMP ROOTGO 


6725 


1045 




TAD HORD 


6726 


7041 




CMA lAC 


6727 


1357 




TAD ITERl+1 


6730 


7640 




SZA CLA 


6731 


5345 




JMP ROOTGO 


6732 


1046 




TAD LORD 


6733 


7041 




CMA lAC 


6734 


1360 




TAD ITERl+2 


6735 


7500 




SMA 


6736 


7041 




CMA lAC 


6737 


7001 




lAC 


6740 


7710 




SPA CLA 


6741 


5345 




JMP ROOTGO 


6742 


1362 




TAD FLAGl 


6743 


3061 




DCA FLAG 


6744 


5656 




JMP 1 SQROOT 


6745 


4407 


ROOTGO, 


JMS 1 0007 


6746 


6356 




FPUT ITERl 


6747 


0000 




FEXT 


6750 


5310 




JMP CLCU 


6751 


4653 


SQENDl, 


JMS 1 NEG 


6752 


2362 




ISZ FLAGl 


6753 


5260 




JMP SQROOT+2 


6754 


3044 


SQEND, 


DCA EXP 


6755 


5656 




JMP 1 SQROOT 


6756 


0000 


ITERl, 


0 


6757 


0000 




0 


6760 


0000 




0 


6761 


3015 


SQCONl, 


3015 


6762 


0000 


FLAGl, 


0 



/NUMBER=0 



/ARE EXPONENTS EQUAL? 
/NO 

/ARE HIGH-ORDER MANTISSAS EQUAL? 



/NO 

/DO LOW-ORDER MANTISSAS AGREE? 
/WITHIN ONE BIT? 

/NO 



/NEGATE FAC 



4-12 



ACMINS 


6000 


ACON6 


5760 


ACIH 


0041 


ACIL 


0042 


ADDR 


5656 


ALGN 


5771 


ALIGN 


6020 


AMOUNT 


6142 


AMTl 


6655 


CLCU 


6710 


D 


6367 


DIVIDE 


6361 


DIVl 


6200 


DIV2 


6420 


DMULT 


6221 


DNORM 


6600 


DONE 


6114 


DUBDIV 


6472 


DUNORM 


6664 


DVX 


6506 


DV2 


6522 


DV3 


6500 


ERROR 


6374 


ERRORl 


6152 


EXIT 


5742 


EXITl 


6641 


EXIT2 


6651 


EXIT6 


6171 


EXP 


0044 


EXPl 


0050 


EXl 


0040 


FLAD 


5716 


FLAG 


0061 


FLAGl 


6762 


FLDV 


6305 


FLGT 


5676 


FLMY 


5761 



FLPT 


D/UO 


FLSU 


O/O/ 


FPACl 


OUOZ 


FPNT 


5600 


GOOF 


6162 


G02 


5655 


G06 


Z Z 1 T 

661 7 


HORD 


AA>( C 

0045 


INDRCT 


5664 


ITERl 


6756 


JUMP 


5653 


JUMP2 


5654 


KEEP 


6370 


LOOPOl 


5627 


LOP 


6622 


LORD 


0046 


MASK3 


5660 


MASK5 


5661 


MASK7 


5662 


MIF 


Z C A A 

6544 


MINS 


6373 


MINS2 


6371 


i ilk II i c ^ 

MINUS2 


6400 


MPl 


/ A / / 

6466 


MP2 


647 \ 


MP2PT 


z o cz 

6356 


MP3 


Z A Z~7 

646/ 


MP4 


643/ 


L in A nT 

Mr4r I 


zocc: 

6oOO 


MP5 


6460 


MPoPl 


ZO CT 

ooo/ 


MULT 


5767 


NEG 


6653 


NOGO 


6125 


NOHERE 


6137 


NORF 


5773 


NORM 


5770 



NUKMr 


Z OZ A 

6360 


UrMINo 


0/41 


OUTGO 


Z 1 1 Z 

61 1 6 


OVcRl 


r\r\ A o 

0043 


OVER2 


r\r\ A ~7 

0047 


PAGcNO 


cz z o 

5663 


UUOL 


AACI 
UUO 1 


n A ri 1 

KAKl 


oO/z 


n A n o 

RAR2 


Z'370 

oo/z 


D C C T 

REST 


oJoo 


RhlNz 


O 1 0 1 


n CT 1 in K 1 

RETURN 


ooo4 


ROOTGO 


Z 7/< C 

o/4o 


SAVE 


065/ 


SGN 


Z*^ z c 

6365 


SH IFT 


6076 


SIGN 


z ooz 
6336 


SIGN! 


Z Z C A 

6654 


SMACLA 


z o z o 

6363 


SNSWIT 


Z O /( "7 

634/ 


c n A /™l A 

5PACLA 


zozo 
oooz 


SQCONl 


Z ^Z 1 

6761 


SQEND 


6754 


SQENDl 


Z "7C1 

6751 


SQROOT 


z z c z 

6656 


SQUARE 


z 1 z o 

6 1 63 


TABLE 


^ L L C 

o66o 


X A n 1 XI z 

TABLE6 


6o4o 


T A 1 

TAGl 


o 1 4/ 


X A Z^ O 

TAGz 


Z 1 CA 

o 1 OU 


X P P X o 

TEST2 


Z 1 /( o 

6 1 43 


TEST3 


6144 


TEST4 


6145 


TEST5 


6146 


THIR 


6470 


UNORM 


5772 
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/FLOATING POINT I/O ROUTINES 
/REQUIRES FLOATING POINT INTERPRETER 
/ENTRY AT 0007 







*7 




wOti 1 




FPNT 
r r n I f 


56(30 






iK.AA 




tixi *l H 




FXPONT 


mJ 


0045 


0000 


HORDER, 


0 


0046 


0000 


LORDER, 


0 






*52 




0052 


0000 


FPACl , 


0 


0053 


0000 




0 


0054 


0000 




0 


0055 


7777 


SWITl , 


7777 


0056 


7777 


SWIT2, 


7777 


0057 


0000 


CHAR, 


0 


0060 


0000 


DSWIT, 


0 



/IF = 0, NO CR-LF AFTER OUTPUT 
/IF = 0, NO LF AFTER CR IN INPUT 
/CONTAINS LAST CHARACTER READ 
/= 0 IF NO CONVERSION TOOK PLACE 



*6767 



6767 


0000 


PRCHAR, 


0 




6770 


1056 




TAD 


SWIT2 


6771 


7650 




SNA 


CLA 


6772 


5767 




J MP 


I PRCHAR 


6773 


1377 




TAD 


LFED 


6774 


4776 




JMS 


I OPUT 


6775 


5767 




JMP 


I PRCHAR 


6776 


7344 


OPUT, 


OUT 




6777 


0212 


LFED, 


0212 



4-14 



/DOUBLE PRECISION DECIMAL-BINARY 
/INPUT AND CONVERSION 



7000 


0000 


DECONV- 


0 






7001 


7200 




CLA 




/INITIALIZE MANTISSA 


7002 


3045 




DCA 


HORDER 




7003 


5046 

W ft/ *v ^ 




DCA 


LORDER 




7004 


3265 




DCA 


SIGN 




7005 


3266 




DCA 


DNUMBR 




7006 


434? 




JMS 


INPUT 




7007 


1336 




TAD 


PLUS 


/TEST FOR SIGN 


701 0 


7450 




SNA 






701 1 


521 7 




JMP 


DECON 




7012 


1335 




TAD 


MINUS 




7013 


7440 




SZA 






70 1 4 


5220 




JMP 


•+4 




7015 


7240 




CLA 


CMA 




701 6 


3265 




DCA 


SIGN 


/IF-, SET SWITCH 


701 7 

f 1-/ I. f 


4342 


DECON. 


JMS 


INPUT 




7020 


7200 




CLA 






7021 


1057 




TAD 


CHAR 


/IS IT A DIGIT 


7022 


1337 




TAD 


MIN9 




7023 


7500 




SMA 






7024 


5600 




JMP 


I DECONV 


/NO 


7025 


1340 




TAD 


PLUS12 




7026 


751 0 




SPA 






7027 


5600 




JMP 


I DECONV 


/NO 


r K/ W V 


3263 




DCA 


DIGIT 


/YES 


703 I 


1 045 

I, W 1 




TAD 


HORDER 




f fJ \J 


0341 




AND 


MASK 


/OVERFLOW? 


703 ^ 

f iU o 


7440 

1 *Tt T jC 




SZA 






7034 


521 7 




JMP 


DECON 


/YES- IGNORE 


7035 


2060 




ISZ 


DSWIT 






??66 

1-4 ^ Vj VJ 




IS7 


DNUMBR 


/INDEX NUMBER OF DIGITS 


7037 


4?4 1 




JMS 


MULTl 0 




# t/ *-i jC 


521 7 




JMP 


DECON 


/CONTINUE 


7041 


0000 


MULTl 0- 


0 




/ROUTINE TO MULTIPLY 

/ i\ W W A X IV Ai# A W 1 i w M AX' A*t A 




1 046 




TAD 


LORDER 


/DOUBLE PRECISIOW WORD 


7043 


3261 




DCA 


LTEMP 


/BY TEN (DECIMAL) 


7044 


1 045 




TAD 


HORDER 


/REMAIN=REMAINDER 


7045 

1 )U *t ^ 


3P62 

\J CLi \J 




DCA 


HTEMP 




7046 


3264 




DCA 


REMAIN 




7047 


4267 




JMS 


MULT2 


/CALL SUBROUTINE TO 




4P67 




JMS 


MULT2 


/MULTIPLY BY TWO 

rliUwAX* MA X AWw 


7051 


4303 




JMS 


DUBLAD 


/CALL DOUBLE ADD 


7052 


4267 




JMS 


MULT2 




1 JO 


1 ?>6^ 




TAD 


DIGIT 


/ADD LAST DIGIT RECEIUFD 


7054 


3261 




DCA 


LTEMP 






3? 6? 




DCA 


HTEMP 




7056 


4303 




JMS 


DUBLAD 




7057 


1264 




TAD 


REMAIN 


/EXIT WITH REMAINDER 


7060 


5641 




JMP 


I MULTl 0 


/IN AC 


7061 


0000 


LTEMP, 


0 




/DOUBLE PRECISION WORD 


7062 


0000 


HTEMP, 


0 






7063 


0000 


DIGIT, 


0 




/STORAGE FOR DIGIT 


7064 


0000 


REMAIN, 


0 






7065 


0000 


SIGN, 


0 




/=0 IF PLUS: =7777 IF MINUS 


7066 


0000 


DNUMBR, 


0 




/=NUMBER OF DIGITS 


7067 


0000 


MULT2, 


0 




/MULTIPLY LORDER, HORDER BY 



4-15 



7070 


7300 




CLA 


CLL 




7071 


1 046 




TAD 


LORDER 




7072 


7004 




RAL 






7073 


3046 




DCA 


LORDER 




7074 


1 045 




TAD 


HORDER 




7075 


7004 




RAL 






7076 


3045 




DCA 


HORDER 




7077 


1264 




TAD 


REMAIN 




71 00 


7004 




RAL 






71 01 


3264 




DCA 


REMAIN 




7102 


5667 




J MP 


I MULT2 






0000 




0 




/DOUBLE PRECISION ADD 


71 


7^00 




CLA 


CLL 






1 046 




TAD 


LORDER 




71 fAfi 


1261 




TAD 


LTEMP 




71 (37 


3046 

K/ *t 




DCA 


LORDER 




71 1 


7004 




RAL 






71 I I 


1 045 




TAD 


HORDER 




711? 


1 262 




TAD 


HTEMP 




71 1 ^ 


■^0/15 




DCA 


HORDER 




71 1 A 


7004 

1 W w ^ 




RAL 






71 1 5 


1 P64 




TAD 


REMAIN 




71 1 


3264 




DCA 


REMAIN 




71 1 7 


5703 




JMP 


I DUBLAD 




7 1 2 


0000 

KJ tJ tJ V 


MSIGN- 


0 




/ROUTINE TO FORM 


7191 


7300 

f V.I lb' 




CLA 


CLL 


/2'S COMPLEMENT IF 


71 22 


2265 

Cj \J ^ 




ISZ 


SIGN 


/MINUS 


7123 


5720 




JMP 


I MSIGN 


/SIGN=0000: EXIT 


71 9 A 


1 046 




TAD 


LORDER 




7125 


7041 




CMA 


lAC 




7126 


3046 




DCA 


LORDER 




7127 


1045 




TAD 


HORDER 




71 30 


7040 




CMA 






7131 
1 k *j k 


7430 




SZL 






71 


7001 

1 tJXJ k 




lAC 






71 


3045 




DCA 


HORDER 




7134 


5720 




JMP 


I MSIGN 




7135 


7776 


MINUS, 


253- 


255 


/TEST FOR SIGN 


7136 


7525 


PLUS, 


-253 




7137 


7506 


MI N9, 


-272 


/TEST FOR DIGIT 


7140 


0012 


PLUS12, 


272- 


■260 




7141 


7600 


MASK, 


7600 


/TEST FOR OVERFLOW 






/INPUT 


A CHARACTER, IF CR, 


TEST 






/INPUT 


SWITCH 


TO SEE IF LF 


SHOULD 






/BE TYPED. IF 


RUBOUT, RESTART INPUT 


71 A9 


0000 


INPUT, 


0 




/INPUT A CHARACTER 


7143 


7200 
1 ^ V Kr 




CLA 






71 44 


6031 




KSF 






71 45 


5^44 




JMP 


.-1 




71 46 


6036 

\J W VJ 




KRB 






71 47 


3057 




DCA 


CHAR 




71 5C5 


1 057 




TAD 


CHAR 




71 5 1 
1 k ^ k 


4766 




JMS 


I OUTPUT 




71 52 


1 057 




TAD 


CHAR 




7153 


7450 




SNA 






7154 


5343 




JMP 


INPUT+1 


/IGNORE BLANKS 


7155 


1370 




TAD 


MRBOUT 




7156 


7450 




SNA 






7157 


5767 




JMP 


I RESTRT 


/RUBOUT-RESTART INPUT 


7160 


1371 




TAD 


MINOR 





4-16 



7161 


7650 




SNA 


CLA 




r 1 


4 / 65 




JMS 


I PRINT 


/CR - SEE IF TO BE FOLLOWED 


1 1 oo 






TAD 


CHAR 


/BY LF 


7164 


5742 




JMP 


I INPUT 


/EXIT ROUTINE 


7165 


6767 


PRINT, 


PRCHAR 




(1 66 


7 Z >1 


0 1 1 T 01 1 X 

UU f rUT, 


OUT 






» 1 6 f 


7 /1 01 1 
/ 40 1 


DircTDT 


FLINTP+1 




71 7 M 
lilt) 


7 yi f2i 1 
/ 40 1 


MD Drt 1 IT 

nnoUU i f 


-377 




7171 


0162 


MT 111 r» r* 


377-215 








/ iri HA T T Md 


OUTPUT FORMAT 










TSF 








/ 
/ 


JMP .-1 








/ 


TLS 








* (200 








70 


iOxJiOk) 




0 






72 k) 1 


yi 0 1 T 

42 1 7 




JMS 


FOUTCN 


/CONVERT MANTISSA AND OUTPUT 




1 o24 




TAD 


BEXP 


70 /7I 1 


0044 




DCA 


EXPONT 




7204 


t Z A Z 

1 o4o 




TAD 


CHE 




70 M c: 


A A A 

4o44 




JMS 


OUT 




70 CI /C 


7 7 




JMS 


I FEXPPT 


/CONVERT EXPONENT AND OUTPUT 




1055 




TAD 


SWITl 


/PRINT CR-LF? 


70 1 CPi 

f2 1 0 


7 /C r.i 
/ 650 




SNA 


CLA 


TO 1 1 

721 1 


5600 




JMP 


I FLOUTP 


/NO- EXIT 


7212 


1341 




TAD 


CARRTN /YES 




To 1 1 
f2 I O 


A Z A A 

4344 




JMS 


OUT 




TO 1 Ji 

/2 1 4 


1 Z /i 0 

1 0 42 




TAD 


LNFEED 




TO t C 

72 1 5 


4344 




JMS 


OUT 




•-70 1 

721 6 


cz. ^ rji eji 

56k}0 




JMP 


I FLOUTP 


/EXIT 






/THIS WHOLE SUBROUTINE MAY BE ALTERED TO BUFFER 






/THE OUTPUT DIGITS : CHANGE 


JMS OUTDG TO DCA I 10, ETC. 


TO 1 7 
/2l / 


\ovV)Vi 


FOUTCN, 


0 






70 0 .'71 

/<d20 


1 o<o\o 




CLA 


CLL 




700 1 
/22 1 


1045 




TAD 


HORDER 


/NUMBER>0?? 


TO 0 0 

/222 


7 7 1 M 

/ r 1 0 




SPA 


CLA 




70 0 z 
f22o 


TOO n 




CLA 


CML 


/NO SET LINK 


7224 


1 Z 0 T 

1 32 / 




TAD 


SPLUS 


/YES 


70 0 c 


7 A Z 

/ 430 




SZL 






/226 


1 3o0 




TAD 


SMINUS /NO 




TO 0 T 

7227 


h T J\ h 

4344 




JMS 


OUT 




TO 1 fA 


A Z CO 

4352 




JMS 


OUTDG 


/OUTPUT -0- 


70 1 

fdo 1 


1 z z 1 
1 00 1 




TAD 


PERIOD 




TO "Z 0 

72o2 


4o44 




JMS 


OUT 


/OUTPUT 


TO Z Z 






CLA 


CLL 




TO Z >1 

7264 


1 045 




TAD 


HORDER 




7235 


T T CTl rj( 

7700 




SMA 


CLA 




TO Z ^ 

7206 


C 0 A 0 

5242 




JMP 


FGOl 




TO Z T 

72o7 






CMA 




/NUMBER IS NEGATIVE 


7240 


3733 




DCA 


I SNPT 


/NEGATE 


TO A 1 


A T Z 0 

4732 




JMS 


I MSNPT 




7242 


T 0 A 

/240 


FGOl , 


CLA 


CMA 


/SUBTRACT 1 FROM BINARY EXPONENT 


70 z 


1044 




TAD 


EXPONT 


/COMPENSATE AT FG04 


7244 


3044 




DCA 


EXPONT 




7245 


3324 




DCA 


BEXP 


/INITIALIZE DECIMAL EXPONENT 


7246 


1044 


FG02, 


TAD 


EXPONT 


/IS -4<EXP0NENT<-1 


7247 


7500 




SMA 






7250 


5263 




JMP 


FG03 


/TOO LARGE: MULTIPLY BY 1/10 


7251 


1326 




TAD 


FOUR 





4-17 



7252 


7700 




SMA CLA 




7255 


5270 




JMP FG04 




7254 


4407 




JMS I FPNT 


/TOO SMALL-TIMES TEN 


7255 


3740 




FMPY I TENPT 


/TEN 


7256 


0000 




FEXT 




7257 


7240 




CLA CMA 




7260 


1324 




TAD BEXP 




7261 


3324 




DCA BEXP 




72 62 


5246 




JMP FG02 




7263 


4407 


F603, 


JMS I FPNT 




7264 


3372 




FMPY C,10 


/ONE TENTH 


7265 


0000 




FEXT 




7266 


2324 




ISZ BEXP 




7267 


5246 




JMP FG02 




7270 


3734 


FG04, 


DCA I DPT 


/MULTIPLY BY TWO 


7271 


4736 




JMS I M2PT 


/IE. SHIFT LEFT 


7272 


4735 




JMS I M10PT 


/MULTIPLY BY TEN 


7273 


7410 




SKP 




7274 


4357 


FG05A, 


JMS DIVTVIO 


/COMPENSATE FOR 


7275 


2044 




ISZ EXPONT 


/BINARY EXPONENT 


7276 


5274 




JMP FG05A 




7277 


7450 




SNA 


/IS FIRST DIGIT A ZERO 


7300 


5311 




JMP FG07 


/YES, IGNORE 


7301 


4352 


FG06, 


JMS OUTDG 


/MULTIPLICATIONS YIELD 


7302 


1 325 




TAD MINUS7 


/DECIMAL DIGITS AS HIGH 


7303 


3044 




DCA EXPONT 


/ORDER REMAINDERS 


7304 


4735 


FG06A, 


JMS I M10PT 


/IE. .672X10=6+. 72.. ETC 


7305 


4352 




JMS OUTDG 




7306 


2044 




ISZ EXPONT 


/7 DIGITS OUTPUT?? 


7307 


5304 




JMP FG06A 


/NO: CONTINUE 


7310 


5617 




JMP I FOUTCN 


/YES: EXIT 


7311 


7240 


FG07, 


CLA CMA 


/IGNORE FIRST DIGIT 


7312 


1324 




TAD BEXP 


/SUBTRACT 1 FROM 


7313 


3324 




DCA BEXP 


/DECIMAL EXPONENT 


7314 


1045 




TAD HORDER 




7315 


7640 




SZA CLA 




7316 


5322 




JMP .+4 


/IS MANTISSA ZERO? 


7317 


1046 




TAD LORDER 




7320 


7650 




SNA CLA 




7321 


3324 




DCA BEXP 


/YES; EXP=0 


7322 


7240 




CLA CMA 




7323 


5302 




JMP FG06+1 




7524 


0000 


BEXP, 


0 


/CONTAINS DECIMAL EXPONENT 


7525 


7772 


MINUS7, 


7772 


/NUMBER OF DIGTS OUTPUT 


7326 


0004 


FOUR, 


0004 




732 7 


0253 


SPLUS, 


253 




7330 


0002 


SMINUS, 


255-253 




7331 


0256 


PERIOD, 


256 




7332 


7120 


MSNPT, 


MSIGN 




7333 


7065 


SNPT, 


SIGN 


/POINTERS 


7334 


7063 


DPT, 


DIGIT 




7335 


7041 


Ml 0PT, 


MULTl 0 




7336 


7067 


M2PT, 


MULT2 




7337 


7522 


FEXPPT, 


FEXC 




7340 


7504 


TENPT, 


TEN 




7341 


0215 


CARRTN, 


0215 




7342 


0212 


LNFEED, 


0212 




73 43 


0305 


CHE, 


305 





4-18 



7344 


0000 


OUT, 


0 




/OUTPUT ONE ASCII CHARACTER 


7345 


6041 




TSF 






7346 


5345 




JMP 


.-1 




7347 


6046 




TLS 






7350 


7200 




CLA 






7351 


5744 




JMP 


I OUT 




7352 


0000 


OUTDG, 


0 




/OUTPUT ONE DIGIT 


7353 


1356 




TAD 


C260 




7354 


4344 




JM3 


OUT 




7355 


5752 




JMP 


I OUTDG 




7356 


0260 


C260, 


0260 




7357 


0000 


DIVTWO, 


0 




/DIVIDE BY TWO IE. 


7360 


7110 




CLL 


RAR 


/ROTATE RIGHT 


7361 


3344 




DCA 


OUT 


/TEMPORARY STORAGE 


7362 


1045 




TAD 


HORDER 




7363 


7010 




RAR 






7364 


3045 




DCA 


HORDER 




7365 


1046 




TAD 


LORDER 




7366 


7010 




RAR 






7367 


3046 




DCA 


LORDER 




7370 


1344 




TAD 


OUT 




7371 


5757 




JMP 


I DIVTWO 




7372 


7775 


C»10, 


7775 




/CONSTANT ,10 USED IN 


7373 


3146 




3146 


/FLOATING OUTPUT-PROVIDES 


7374 


3147 




3147 










/FLOATING 


POINT INPUT 








*7400 








7400 


0000 


FLINTP, 


0 






7401 


7240 




CLA 


CMA 


/INITIALIZE "PERIOD SWITCH" 


7402 


3313 




DCA 


PRSW 




7403 


3060 




DCA 


DSWIT 




7404 


4716 




JMS 


I DPCVPT 


/7777 = NO PERIOD 


7405 


7200 




CLA 






7406 


1057 




TAD 


CHAR 




7407 


1312 




TAD 


PER 




7410 


7640 




SZA 


CLA 




741 I 


5220 




JMP 


FIGOl 




7412 


1313 




TAD 


PRSW 


/PERIOD FOUND 


7413 


7650 




SNA 


CLA 


/SECOND PERIOD 


7414 


5222 




JMP 


FIG02 


/YES, TERMINATE 


7415 


3721 




DCA 


I DPN 


/NO - SET NUMBER OF DIGITS TO 0 


7416 


3313 




DCA 


PRSW 


/SET PERIOD SWITCH TO 0 


7417 


5717 




JMP 


I DPCSPT 


/CONVERT REST OF STRING 


7420 


1513 


FIGOl , 


TAD 


PRSW 


/PERIOD READ IN PREVIOUSLY? 


7421 


7650 




SNA 


CLA 




7422 


1721 


FIG02, 


TAD 


I DPN 


/YESt-NUMBER OF DIGITS IN SEXP 


7423 


7041 




CMA 


lAC 


/NO 


7424 


3314 




DCA 


SEXP 




7425 


4720 




JMS 


I MSGNPT 


/TEST SIGN 


7426 


1311 


FIG03, 


TAD 


C27 




7427 


3044 




DCA 


EXPONT 




7430 


4407 




JMS 


I FPNT 


/NORMALIZE F,P. NUMBER 


7431 


7000 




FNOR 




7432 


6052 




FPUT FPACl 


/SAVE NUMBER 


7433 


0000 




FEXT 




7434 


1057 




TAD 


CHAR 




7435 


1310 




TAD 


MINUSE 





4-19 



7436 
7437 
7440 
7441 

7442 
7443 
7444 
7445 
7446 
7447 
7450 
7451 



7452 
7453 
7454 
7455 
7456 
7457 
7460 
7461 
7462 
7463 
7464 
7465 
7466 
7467 

7470 
7471 
7472 
7473 
7474 
7475 
7476 
7477 
7500 
7501 
7502 
7503 
7504 
7505 
7506 
7507 
7510 
7511 
7512 
7513 
7514 
7515 

7516 
7517 

7520 
7521 



7522 
7523 



7640 
5252 
4716 
4720 
1045 
7510 
7001 
7640 
5277 
1046 
1314 
3314 



4407 
5052 

0000 

1314 

7450 
5600 
7700 
5270 
4407 
3707 
0000 
2314 
5255 
5600 

4407 
3304 
0000 
7240 
1314 
3314 
5255 
1315 
3044 
1315 
3045 
5600 
0004 
2400 
0000 
7372 
7473 
0027 
7522 
0000 
0000 
3777 

7000 
7017 
7120 
7066 



0000 
7300 



SZA CLA 
JMP ENDFI 
JMS I DPCVPT 
JMS I MSGNPT 
TAD HORDER 
SPA 
lAC 

SZA CLA 

JMP EXCESS 

TAD LORDER 

TAD SEXP 

OCA SEXP 
/END OF FLOATING POINT INPUT 
/COMPENSATE FOR DECIMAL EXPONENTS 



/"E" READ IN? 
/NO 

/YES - CONVERT DECIMAL 

/TEST SIGN 

/EXPONENT TOO LARGE?? 



EXPONENT 



/YES 

/NO; DECIMAL POINT 13 
/C(S£XP)PLACES TO RIGHT 
/OF LAST DIGIT 



ENDFI, 



FIG04, 



EXCESS, 



TEN, 



JMS I FPNT 
FGET FPACl 
FEXT 

TAD SEXP 
SNA 

JMP I FLINTP 
SMA CLA 
JMP FIGQ4 
JMS I FPNT 
FMPY I PC. 10 
FEXT 

ISZ SEXP 
JMP ENDFI+3 
JMP I FLINTP 

JMS I FPNT 
FMPY TEN 
FEXT 
CLA CMA 
TAD SEXP 
DCA SEXP 
JMP ENDFI+3 
TAD C3777 
DCA EXPONT 
TAD C3777 
DCA HORDER 
JMP I FLINTP 
0004 
2400 
0000 
C.10 
-305 
0027 
-256 
0 
0 

3777 

DECONV 
DECON 
MSIGN 
DNUMBR 



/RESTORE MANTISSA 



PC. 10, 

MINUSE, 
C27, 
PER, 
PRSW, 
SEXP, 
C3777, 

DPCVPT, 
DPCSPT, 
MSGNPT, 
DPN, 

/OUTPUT THE EXPONENT 



/. IS TO THE LEFT: 
/TIMES .1000 



/. IS TO THE RIGHT: 
/MULTIPLY BY 10 



/.10 



/CONTAINS DECIMAL EXPONENT 



FEXC, 



0 

CLA CLL 



4-20 



7524 


1044 




TAD 


EXPONT 


7525 


7510 




SPA 




7526 


7061 




CMA 


lAC CML 


7527 


3044 




DCA 


EXPONT 


7530 


1366 




TAD 


0253 


7531 


7430 




SZL 




7532 


1367 




TAD 


C255 


7533 


4774 




J MS 


I DGPT 


7534 


3045 




DCA 


HORDER 


7535 


1044 




TAD 


EXPONT 


7536 


2045 




ISZ 


HORDER 


7537 


1370 




TAD 


Ml 44 


7540 


7500 




SMA 




7541 


5336 




JMP 


.-3 


7542 


1371 




TAD 


0144 


7543 


3044 




DCA 


EXPONT 


7544 


7040 




CMA 




7545 


1045 




TAD 


HORDER 


7546 


7440 




SZA 




7547 


4774 




JMS 


I DGPT 


7550 


3045 




DCA 


HORDER 


7551 


1044 




TAD 


EXPONT 


7552 


2045 




ISZ 


HORDER 


7553 


1372 




TAD 


Ml 2 


7554 


7500 




SMA 




7555 


5352 




JMP 


.-3 


7556 


1373 




TAD 


C 1 2 


7557 


3046 




DCA 


LORDER 


7560 


7240 




CLA 


CMA 


7561 


1045 




TAD 


HORDER 


7562 


4774 




JMS 


I DGPT 


7563 


1 046 




TAD 


LORDER 


7564 


4774 




JMS 


I DGPT 


7565 


5722 




JMP 


I FEXC 


7566 


Tin T 

mo 


C/253 f 


0253 


.-260 


7567 


0002 


C255, 


255- 


•253 


7570 


7634 


Ml 44, 


7634 


7571 


0144 


CI 44, 


0144 


7572 


7766 


M12, 


7766 


7573 


0012 


012, 


0012 


7574 


7352 


DGPT, 


OUTDG 
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BEXP 


7324 


BORDER 


0045 


GARHTN 


7341 


HTEMP 


7062 


CriAH 


I4(d57 


INPUT 


7142 


CHE 


7343 


LFED 


6777 


C. 10 


73 72 


LNFEED 


7342 


CI 2 


7tj73 


LORDER 


0046 


CI 44 


7571 


LTEMP 


7061 


C253 


7566 


MASK 


7141 


C255 


7567 


MI NCR 


7171 


C260 


7356 


MINUS 


7135 


C27 


751 1 


MINUSE 


7510 


C5777 


7515 


MINUS7 


7325 


DEC ON 


7017 


MI N9 


7137 


DECONV 


7l£)00 


MRBOUT 


71 70 


DGPT 


7574 


MSGNPT 


7520 


DIGIT 


7063 


MSIGN 


7120 


DIVTWO 


7357 


MS MPT 


7332 


DNUMBR 


7066 


MULT10 


7041 


DPCSPT 


7517 


MULT2 


7067 


DPCVPT 


7516 


M10PT 


7335 


DPN 


7521 


Ml 2 


7572 


DPT 


7334 


Ml 44 


7570 


DSWIT 


0060 


M2PT 


7336 


DUbLAD 


7103 


OPUT 


6776 


ENDFl 


7452 


OUT 


7344 


EXCESS 


7477 


OUTDG 


7352 


EXPO NT 


0044 


OUTPUT 


7166 


FEXC 


7522 


PC, 10 


7507 


FEXPPT 


7337 


PER 


7512 


FGOl 


7242 


PERIOD 


7331 


FG02 


7246 


PLUS 


7136 


FG03 


7263 


PLUS12 


7140 


FG04 


7270 


PR CHAR 


6767 


FG05A 


7274 


PRINT 


7165 


FG06 


7301 


PRSW 


7513 


FG06A 


7304 


REMAIN 


7064 


FG07 


7311 


RESTRT 


7167 


FlGOl 


7420 


SEXP 


7514 


FIG 02 


7422 


SIGN 


7065 


FX 603 


7426 


SMINUS 


7330 


FIG04 


7470 


SNPT 


7333 


FLINTP 


7400 


SPLUS 


7327 


FLOUTP 


7200 


SWITl 


0055 


FOUR 


7326 


SWIT2 


0056 


FOUTCN 


7217 


TEN 


7504 


FPACl 


0052 


TENPT 


7340 


FPNT 


0007 
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EXTENDED FUNCTIONS 
/FLOATING POINT PACKAGE 



GETSGN=TAD 45 
CLFPNT=JMS I 7 

/FLOATING POINT EXPONENTIAL 



*3000 









(A 


\>}OV} i 


1 VHJ 








lilt) 




C!PA PI A 


^01 (71 X 


HO 1 V 




(J I'ji? r iViLci 


aCAlTi A 


XX(7i A 

oOi(34 








A A 05 7 
H**V) 1 








Oct lO 








/ZX i R 
OO 1 7 




r rU 1 A 


RiA t Oi 
j\0 1 w 






FFXT 




H 1 IWO 




IMQ T FIXTT 


5012 


1 045 




n C" T C P M 


50 1 «^ 


■Z Z fil K 

0^105 






Oil 1 yt 


H Ixl 1 




!MQ T Fl HAT 


50 1 5 


44iJ / 






<^iA 1 

i;>ii3 1 o 






TTPllT YQHR 
r r U i Abyn 




'^X\ ^ 




F(^ rT Y 
r u il. i A 


50<d0 


O ZO 




J*buo AbUn 




OO 1 0 




FPllT Y 
J* ru 1 A 


c»M O O 


XX \ 




FMPV Y 
r ilr I A 


504do 


00<i 0 




rrUi Abyn 




I C, IK) 




FA nn n 
r tiUu u 


50«i5 


/r z o z 






5026 


5265 




rr> ITT p 




yi zo z 




irn T v/ TIT MP 


5030 


231 5 




rbUo A 


5031 


1 257 




FADD A 




<: zo z 




FPllT TITMP 


50o3 






Ff3 ITT R 


5034 


Z Z O iTl 

3320 




rWri AbUK 


510 »j5 


1 zo z 




FA nn TCMP 








ITPUT TCMP 








H'fl ITT Y 


5040 


4323 




FDIV TEMP 


5041 


3301 




FMPY TWO 


504^ 


1276 




FADD ONE 








FEXT 


51344 


1 O05 




TAD FLAG2 


5045 


1044 




TAD 44 


5046 


3044 




DCA 44 


5047 


2304 




ISZ SIGN 


5050 


5600 




JMP I FEXP 


5051 


4407 




CLFPNT 


5052 


6315 




FPUT X 


5053 


5276 




FGET ONE 


5054 


4315 




FDIV X 


5055 


0000 




FEXT 


5056 


5600 




JMP I FEXP 






/CONSTANTS FOR FEXP 


5057 


0004 


A, 


0004 


5060 


2372 




2372 


5061 


1402 




1402 



/C(SIGN)=-1 IF X<0 
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5062 
5063 

50 64 
5065 
5066 
5067 
5070 
5071 
5072 
5073 
5074 
5075 
5076 
5077 
5100 
5101 
5102 
5103 
5104 
5105 
5106 
5107 

5110 
5111 
5112 

51 13 
5114 



5115 
5116 
5117 
5120 
5121 
5122 
5123 
5124 
5125 
5126 
5127 
5130 

5131 

5132 

5133 

5134 

5135 

5136 

5137 

5140 

5141 

5142 

5143 

5144 

5145 

5146 

5147 

5150 

5151 

5152 

5153 



7774 
2157 
5157 
0012 
5454 
0343 
0007 
2566 
5341 
0001 
2705 
2435 
0001 
2000 
0000 
0002 
2000 
0000 
0000 
0000 
4757 
5563 

0000 
4714 

7240 
5710 
6000 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

4407 
5315 
3315 
6320 
3373 
1370 
3320 
1365 
6323 
5362 
3320 
1357 
3320 
1354 
3315 
4323 
0000 
5753 
5226 



B, 
C, 
D, 

LG2E, 

0N£» 

TWO, 



SIGN, 

FLAG2 , 

FIXIT, 

FLOAT, 

/NEGATION 

FNEG, 



ACMINS, 



7774 

2157 

5157 

0012 

5454 

0343 

0007 

2566 

5341 

0001 

2705 

2435 

0001 

2000 

0000 

0002 

2000 

0000 

0 

0 

FIX 
FLOA 

SUBROUTINE 
0 

JMS I ACMINS 
CLA CMA 
JMP I FNEG 
6000 



/CALL SUBROUTINE IN 
/INTERPRETER 

/POINTER TO INTERPRETER 



/TEMPORARY STORAGE 



X, 



XSQR, 



TEMP, 



ZER, 



/MAIN ALGORITHM FOR ARCTANGENT 
ARCALG, CLFPNT 

FGET X 

FMPY X 

FPUT XSQR 

FMPY BET2 

FADD BETl 

FMPY XSQR 

FADD BETZ 

FPUT TEMP 

FGET ALF2 

FMPY XSQR 

FADD ALFl 

FMPY XSQR 

FADD ALFZ 

FMPY X 

FDIV TEMP 

FEXT 

JMP I .+1 

ARCRTN 
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/CONSTANTS - FLOATING ARC TANGENT 



5154 


0000 


ALFZ, 


0000 


5155 


2437 




2437 


5156 


1643 




1643 


5157 


7777 


ALFl , 


7777 


5160 


3304 




3304 


5161 


4434 




4434 


5162 


7773 


ALF2, 


7773 


5163 


3306 




3306 


5164 


5454 




5454 


5165 


0000 


BETZ, 


0000 


5166 


2437 




2437 


5167 


1646 




1646 


5170 


0000 


BETl, 


0000 


5171 


2427 




2427 


5172 


2323 




2323 


5173 


7775 


BET2, 


7775 


5174 


3427 




3427 


5175 


7052 




7052 






/FLOATING 


POINT ARC Ti 






*5200 


5200 


0000 


ARTN, 


0 


5201 


1045 




GETSGN 


52 02 


7710 




SPA CLA 


52 03 


4642 




JMS I NEGIT 


5204 


3243 




DCA FLAGl 


5205 


4407 




CLFPNT 


5206 


6644 




FPUT I XI 


5207 


5644 




FGET I XI 


5210 


2645 




FSUB I CONl 


5211 


0000 




FEXT 


5212 


1045 




GETSGN 


5213 


7710 




SPA CLA 


5214 


5223 




JMP GO 


5215 


4407 




CLFPNT 


5216 


5645 




FGET I CONl 


521 7 


4644 




FDIV I XI 


5220 


6644 




FPUT I XI 


5221 


0000 




FEXT 


5222 


7240 




CLA CMA 


5223 


3251 


GO, 


DCA FLOG 


522 4 


5625 




JMP I .+1 


5225 


5131 




ARCALG 


5226 


2251 


ARCRTN, 


ISZ FLOG 


5227 


5235 




JMP EXIT 


5230 


4407 




CLFPNT 


5231 


6644 




FPUT I XI 


5232 


5246 




FGET PIOT 


5233 


2644 




FSUB I XI 


5234 


0000 




FEXT 


523 5 


2243 


EXIT, 


ISZ FLAGl 


5236 


5600 




JMP I ARTN 


5237 


4642 




JMS I NEGIT 


52 40 


7200 




CLA 


5241 


5600 




JMP I ARTN 



/FLAG 

/CALL ALGORITHM 
/RETURN HERE 



/CONSTANTS FOR ARCTANGENT 



52 42 
52 43 
524 4 
5245 



5110 
0000 
5115 
5076 



NEGIT, 
FLAGl , 
XI, 
CONl , 



FNEG 

0 

X 

ONE 
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5246 0001 

5247 3110 
52 50 3755 



5251 
5252 
5253 
5254 
5255 
5256 
5257 
5260 
5261 
5262 
5263 
52 6 4 
5265 
5266 
52 67 

52 7 0 
5271 
5272 
5273 
5274 
5275 
5276 
5277 
5300 
5301 
5302 
5303 
53u4 
5305 
5306 
5307 
5310 
5311 
5312 
5313 
5314 
5315 
5316 
5317 
5320 
5321 
5322 
5323 
5324 
5325 

53 26 
5327 
5330 
5331 
5332 
5333 
5334 
533 5 
5336 
5337 
5340 



0000 
1045 
7440 
5261 
4407 
4775 
0000 
5651 
7710 
4642 
4407 
6774 
2645 
0000 
1045 
7450 
5350 
7710 
5341 
3243 
7040 
1774 
3045 
4777 
4407 
3776 
6644 
0000 
7001 
3774 
4407 
5774 
2645 
6774 
3773 
1772 
3774 
1771 
3774 
1770 
3774 
1365 
3774 
1362 
3774 
1357 
3774 
1354 
3774 
1644 
0000 
2243 
5651 
4642 
7200 
5651 



PIOT, 0001 
3110 

3755 

/FLOATING LOGARITHM 
FLOG, 



OK, 



START, 



0 




GETSGN 


SZA 




JMP OK 


CLFPNT 


FDIV 


I ZERO 


FEXT 




JMP I 


FLOG 


SPA CLA 


JMS I 


NEGIT 


CLFPNT 


FPUT 


1 TEM 


FSUB 


I CONl 


FEXT 




GETSGN 


SNA 




JMP ZERGO 


SPA CLA 


JMP INVERT 


DCA FLAGl 


CMA 




TAD I 


TEM 


DCA 45 


JMS I 


FLOATP 


CLFPNT 


FMPY 


1 L0G2 


FPUT 


I XI 


FEXT 




lAC 




DCA I 


TEM 


CLFPNT 


FGET 


I TEM 


FSUB 


I CONl 


FPUT 


I TEM 


FMPY 


I L8 


FADD 


I L7 


FMPY 


I TEM 


FADD 


I L6 


FMPY 


I TEM 


FADD 


I L5 


FMPY 


I TEM 


FADD 


L4 


FMPY 


I TEM 


FADD 


L3 


FMPY 


1 TEM 


FADD 


L2 


FMPY 


I TEM 


FADD 


LI 


FMPY 


I TEM 


FADD 


I XI 


FEXT 




ISZ FLAGl 


JMP I 


FLOG 


JMS I 


NEGIT 


CLA 




JMP I 


FLOG 



/INDICATE ERROR 
/DIVIDE BY ZERO 
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5341 


4407 


INVERT, 


CLFPNT 


53 42 


5645 




FGET I CONl 


5343 


4774 




FDIV I TEM 


5344 


6774 




FPUT I TEM 


5345 


0000 




FEXT 


53 46 


7240 




CLA CMA 


5347 


5274 




JMP START 


5350 


4407 


ZERGOy 


CLFPNT 


5351 


5775 




FGET I ZERO 


5352 


0000 




FEXT 


5353 


5651 




JMP I FLOG 


C 7 C A 

5354 


0000 


LI , 




5355 


3777 






5356 


7742 




7742 


53 5 7 


7777 


t 

12 f 


im 


5360 


4000 




4000 


5361 


4100 




4100 


53 62 


7777 


L3, 


nn 


53 63 


251 7 




251 7 


5364 


0307 




0307 


5365 


7776 


L4, 


7776 


5366 


4113 




4113 


5367 


721 1 




721 1 


53 70 


5547 


L5, 


L0G5 


5371 


5552 


L6, 


L0G6 


5372 


5555 


L7, 


LOG 7 


53 73 


5560 


LS, 


LOGS 


5374 


5123 


TEM, 


TEMP 


5375 


5126 


ZERO, 


ZER 


5376 


5544 


L0G2 , 


L0GE2 


5377 


5563 


FLOATP, 


FLOA 






/FLOATING 


POINT SINE 






*5400 




5400 


0000 


FSIN, 


0 


5401 


1045 




GETSGN 


5402 


7740 




SMA SZA CLA 


5403 


5210 




JMP MOD 


5404 


1045 




GETSGN 


5405 


7700 




SMA CLA 


5406 


5600 




JMP I FSIN 


5407 


4741 




JMS I NEGT 


5410 


3343 


MOD, 


DCA PNTR 


541 1 


4407 




CLFPNT 


5412 


4315 




FDIV TWOPI 


5413 


6724 




FPUT I XSQ2 


5414 


0000 




FEXT 


5415 


4742 




JMS I FIXR 


5416 


4363 




JMS FLOA 


5417 


4407 




CLFPNT 


5420 


6723 




FPUT I X2 


5421 


5724 




FGET I XSQ2 


5422 


2723 




FSUB I X2 


5423 


3315 




FMPY TWOPI 


5424 


6723 




FPUT I X2 


5425 


2320 




FSUB PI 


5426 


0000 




FEXT 


5427 


1045 




GETSGN 


5430 


7710 




SPA CLA 


5431 


5241 




JMP PCHECK 


5432 


4407 




CLFPNT 


5433 


6723 




FPUT I X2 


5434 


0000 




FEXT 



/X>0? 
/YES 

/NO X=0? 
/YES SIN(0)=0 
/NO:SIN<-X)=-SIN(X) 
/REDUCE X MODULO 2 PI 



/X<PI? 



/YES 

/NO SIN(X-PI)=-SIN(X> 
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5435 
5436 
5437 
5440 
5441 
5442 
5443 
5444 
5445 
5446 
5447 
5450 
5451 
5452 
5453 
5454 

5455 
5456 
5457 
5460 
5461 
5462 
5463 
5464 
5465 
5466 
5467 
5470 
5471 
5472 
5473 
5474 
5475 
5476 
5477 
5500 
5501 
5502 



1343 
7650 
7040 
3343 
4407 
5723 
2714 
0000 
1045 
7710 
5255 
4407 
5320 
2723 
6723 
0000 

4407 
5723 
4714 
6723 
3723 
6724 
5325 
3724 
1330 
3724 
1333 
3724 
1336 
3724 
1714 
3723 
0000 
2343 
5600 
4741 
7200 
5600 



PCHECK, 



PALG, 



X2 
PI2 



TAD PNTR 
SNA CLA 
CMA 

DCA PNTR 
CLFPNT 
FGET I 
FSUB I 
FEXT 
6ETSGN 
SPA CLA 
JMP PALG 
CLFPNT 
FGET PI 
FSUB I X2 
FPUT I X2 
FEXT 

CLFPNT 



FGET I X2 

FDIV I PI2 

FPUT I X2 

FMPY I X2 

FPUT I XSQ2 

FGET C9 

FMPY I XSQ2 

FADD C7 

FMPY I XSQ2 
FADD C5 
FMPY I XSQ2 
FADD C3 
FMPY I XSQ2 
FADD I PI2 
FMPY I X2 
FEXT 

ISZ PNTR 
JMP I FSIN 
JMS I NEGT 
CLA 

JMP I FSIN 
/FLOATING POINT COSINE 



/X<PI/2? 



/YES 
/NO 

/SIN(X)=SIN(PI-X) 



5503 
5504 
5505 
5506 
5507 
5510 
5511 
5512 
5513 



0000 
4407 
6723 
5714 
2723 
0000 
1303 
3200 
5201 



FCOS, 



0 

CLFPNT 
FPUT I X2 
FGET I PI2 
FSUB I X2 
FEXT 

TAD FCOS 
DCA FSIN 
JMP FSIN+1 



/CONSTANTS AND POINTERS 



/C0S(X)=SIN(PI/2-X) 



5514 

5515 
5516 
5517 
5520 
5521 
5522 
5523 
5524 



5246 
0003 
3110 
3755 
0002 
3110 
3755 
5115 
5120 



PI2, 
TWOPI, 



Pit 



X2, 
XSQ2, 



PIOT 
0003 
3110 
3755 
0002 
3110 
3755 
X 

XSQR 



/PI/2 
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5525 
5526 
5527 
5530 
5531 
5532 
5533 
5534 
5535 
5536 
5557 
5540 
5541 
5542 
5543 



5544 
5545 
5546 
5547 
5550 
5551 
5552 
5553 
5554 
5555 
5556 
5557 
5560 
5561 
5562 

5563 
5564 
5565 
5566 
5567 
5570 
5571 
5572 
5573 
5574 



4757 
4760 
4761 
4762 
4763 
4764 
4765 
4766 
4767 
4770 
4771 
4772 
4773 
4774 



7764 

2366 
5735 
7771 
5466 
6317 
7775 
2431 
5053 
0000 
5325 
0420 
5110 
4757 
0000 



0000 
2613 
4414 
7776 
2535 
3301 
7775 
4746 
0771 
7774 
2236 
4304 
7771 
4544 
1735 

0000 
7300 
3046 
1374 
3044 
4407 
7000 
0000 

5763 
0013 



0000 
1044 
7540 
5365 
7200 
5375 
1377 
3044 
1044 
7700 
5757 
4774 
5367 
6200 



/SINE 
C9, 



C7, 
C5, 
C3, 



NEGT, 
FIXR, 
PiMTR, 



CONSTANTS 
7764 

2366 

5735 

7771 

5466 

6317 

7775 

2431 

5053 

0000 

5325 

0420 

FNEG 

FIX 

0 



/LOGARITHM CONSTANTS 



L0GE2, 

L0G5, 

L0G6, 

L0G7, 

LOGS, 



/FLOAT 
FLOA, 



C13, 
*4757 
/FIX C( 
FIX, 



LOOP, 



0000 

2613 
4414 
7776 
2535 
3301 
7775 
4746 
0771 
7774 
2236 
4304 
7771 
4544 
1735 
0(45) 
0 

CLA CLL 
DCA 46 
TAD CI 3 
DCA 44 
CLFPNT 
FNOR 
F£XT 

JMP I FLOA 
0013 

FAC) 
0 

TAD 44 
SMA SZA 
JMP .+3 
CLA 

JMP FIXEND 
TAD Ml 3 
DCA 44 
TAD 44 
SMA CLA 
JMP I FIX 
JMS I .+2 
JMP LOOP 
6200 



/DIVl IN INTERPRETER 
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4775 3045 FIXEND, DCA 45 

4776 5757 JMP I FIX 

4777 7765 M13, -13 



A 

n 


5 1/1 5 7 


AOlTli No 


-> 1 1 4 


HL,r L 


J i.JH 


Al Fl 


5 157 




S 1 

J i 0^ 


Hi x OH LiU 


S 1 1 
^ 1 0 X 


AHCRTN 

Hiv i if 




T M 




D 


"=> i/i 9 


RFT7 

O ill 1 £^ 


5 1 fi5 


1 i 


S 1 7'w'l 


O IT TO 


'=^ 1 7 A 

!? 1 / 0 


p 




UL r r IM 1 




CuNl 


5245 


PI x 




Uo 




C5 


c c °z 7 

5533 


P7 


J JOVJ 






D 


c rn T 'A 

5k3 / k3 


ITYT T 




cr* c? 
r UUb 




F LXP 


5Ui^U 


ITT Y 




FIXEND 


An5 


FIXIT 


5106 


FIXR 


5542 


FLAGl 


5243 


FLAG2 


5105 


FLOA 


5563 


FLOAT 


5107 


FLOA TP 


5377 


FLOG 


5251 


FNEG 


5110 


FSIW 


5400 


GETSGN 


1045 


GO 


5223 


INVERT 


5341 


LG2E 


5073 


L0GE2 


5544 



L0G2 


5376 


LOG 5 


5547 


L0G6 


5552 


1 nG7 


5555 


LOGS 


5560 


LOOP 


4767 


LI 


5354 


L2 


5357 


L3 


5362 


L4 


5365 


L5 


5370 


L6 


5371 


L7 


5372 


L8 


5373 


MOD 


5410 


M13 


4777 


NEGIT 


5242 


NEGT 


5541 


OK 


5261 


ONE 


5076 


PAL6 


5455 


PCriECK 


5441 


PI 


5520 


PIOT 


5246 


PI 2 


5514 


PNTH 


5543 


SIGN 


5104 


iSTAHT 


5274 


TEM 


5374 


TEMP 


5123 


TWO 


5101 


TWOPI 


5515 


X 


5115 


XSQK 


5120 


XSQ2 


5524 


XI 


5244 


X2 


5523 


ZEH 


5126 


ZEHGO 


5350 


ZERO 


5375 
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/FLOATING OUTPUT PROGRAM 
/IF(62)=0, THEN OUTPUT IN E FORMAT 
/ELSE, C(62)sNUMB£R OF DIGITS 
/C(AC)=NUMBER OF PLACES TO RIGHT OF • 
/IF C(AC)=a, THEN DON'T OUTPUT POINT 
/SIGN AND . NOT COUNTED IN OUTPUT 
/CONTENTS OF 15 LOST DURING OPERATION 



7201 
7202 
7203 
7204 



4777 
4217 
1324 
4776 



'K7201 



JMS I 7377 /ALTERATIONS FLOATING OUTPUT 
JMS 7217 
TAD 7324 
JMS I 7376 



7207 7200 



♦ 7207 



CLA 



*7227 



7227 


341 5 




DCA 


I 15 


7230 


7000 




NOP 




7231 


7000 




NOP 




7232 


7000 




NOP 








*7301 






7301 


3415 




DCA 


I 15 






*7305 






7305 


3415 




DCA 


I 15 






♦ 7376 






7376 


5412 




TGO 




7377 


5400 




EDIT 






^ J HVJU 






JH\Ov 


x}ti\0\0 




0 




i^AiA 1 
JH\0 i 






DCA 


SAC 




1 10 




TAD 


62 


5403 


7041 




CMA 


lAC 


5404 


3347 




DCA 


COUNTl 


5405 


1357 




TAD 


M8 


5406 


3350 




DCA 


C0UNT2 


5407 


1363 




TAD 


SADl 


5410 


3015 




DCA 


15 


541 1 


5600 




JMP 


I EDIT 


5412 




TGO, 


0 




5413 


3044 




DCA 


44 


5414 


1363 




TAD 


SADl 


5415 


3015 




DCA 


15 


5416 


1415 




TAD 


I 15 


5417 


4761 




JMS 


I OUTl 


5420 


1062 




TAD 


62 


5421 


7650 




SNA 


CLA 


5422 


5327 




JMP 


EFORM 


5423 


2212 




ISZ 


TGO 


5424 


2212 




ISZ 


TGO 


5425 


1044 


TRYAGN, 


TAD 


44 


5426 


7510 




SPA 




5427 


5300 




JMP 


MINS 


5430 


1352 




TAD 


SAC 


5431 


7041 




CMA 


lAC 


5432 


1062 




TAD 


62 
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f 5 i 0 




CPA 

arn 






5<2oc> 




IMP 










O vin 




5436 


5245 




JMP 


GOl 


5437 


7041 




CMA 


lAC 




^^51 
v70 > 1 




u on 


PMTR 


JHH I 


1 OPO 




TAn 
1 nu 






4"59 1 






niiT 




^ w ^ 1 




T "5 7 


P WTR 




59A ! 




IMP 


• O 




1 0144 




TAD 












TAP 


5447 


7450 




SNA 




5450 


5256 




JMP 


G02 








U Oft 


PMTR 














43P 1 




JMS 


OUT 








T c:7 


PMTR 


5455 






.IMP 




JHJKi 


\ ^59 


Rn9 




«^ A P 




f O?l0 






PI A 




CO £ X 

5^63 




1 MD 

dnr 


•+3 


5461 


1354 




TAD 


PERIOD 


1^ A c o 


A'l C\ 

4 1 61 




IMC 


X UU 1 1 


5463 


433 / 




IMC? 




5464 


4321 




JMS 


OUT 


5465 


5263 




JMP 


.-2 


5466 


1352 


ERR, 


TAD 


SAC 


54<^7 


77fl(ZI 

f r VV 






CLA 




5P 74 




JMP 


ERGO 








TAD 


CHX 


5472 


4321 




JMS 


OUT 


5473 


5271 




JMP 


.-2 


i^Al A 


7'P AOl 




CI A 


CMA 


sii4 7 5 


1 ^59 






c:a C 
on o 


I O 


^ ^50 




nPA 


^A C 


^i47 7 


5995 




.IMP 


TRYA6N 


J J 10 \ii 




MT 


CI A 




■^5 Oi 1 
I/L? 10 1 


\ {A(^0 




TAD 






f 10 H Jl 




CMA 
wiin 


I AC 


53100 






TAH 


c:a C 


5504 


7450 




SNA 




5505 


5313 




JMP 


G03 


55I0O 


0051 




npA 


PMTR 




1^5^ 
1 OjO 




TAD 


<^PCF 
or o£. 


55 1 V 


A\0 \ 








55 1 i 


^05 1 




T <?7 


PMTR 


J J 1 


5 




IMP 


• w 


5513 


1354 


G03 y 


IAD 


B C* D T An 

rERIUU 


1 A 

55 1 4 


A "7 C t 
4 /Ol 






T ni IT 1 


5515 


4321 




JMS 


OUT 


5516 


2044 




ISZ 


44 


5517 


5315 




JMP 


.-2 


5520 


5263 




JMP 


G02+5 


5521 


0000 


QUT, 


0 




5522 


4762 




JMS 


I 0UT2 
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5523 2347 

5524 5721 

5525 1355 

5526 5612 



ISZ COUNTl 
JMf I OUT 
TAD CriE 
JMP I TGO 



5527 


4762 EFORM, 


JMS 


I 0UT2 


5530 


1354 


TAD 


PERIOD 


5531 


4761 


JMS 


I QUTl 


5532 




TAD 


M7 


5533 


3347 


DCA 


COUNTl 


5534 


4337 


JMS 


GET 


5535 


4321 


JMS 


OUT 


5536 


5334 


JMP 


.-2 



5537 


0000 GET. 


0 


5540 


2350 


ISZ COUNT 


5541 


5345 


JMP .+4 


5542 


7240 


CLA CMA 


5543 


3350 


DCA COUNT; 


5544 


5737 


JMP I GET 


5545 


1415 


TAD I 15 


5546 


5737 


JMP I GET 


5547 


0000 COUNTl , 


0 


5550 


0000 C0UNT2^ 


0 


5551 


0000 CNTR, 


0 


5552 


0000 SAC» 


0 


5553 


7760 SPCE, 


240*260 


5554 


0256 PERIOD, 


256 


5555 


0305 CHE, 


305 


5556 


0050 CHX, 


330-260 


5557 


7770 M8, 


-10 


5560 


7771 M7, 


-7 


5561 


7344 OUTl, 


7344 


5562 


7352 0UT2, 


7352 


5563 


5563 SADl , 


BUFFER- I 




BUFFER, 




BUFFER 5564 




CriE 


5555 




CHX 


5556 




CNTK 


5551 




COUNTl 


5547 




C0UNT2 5550 




EDIT 


5400 




EFORM 


5527 




EHGO 


5474 




ERR 


5466 




GET 


5537 




GOl 


5445 




G02 


5456 




G03 


5513 




MI NS 


5500 




M7 


5560 




MS 


5557 




OUT 


5521 




OUTl 


5561 




0UT2 


5562 




PERIOD 5554 




SAC 


5552 




SADl 


5563 




SPCE 


5553 




TGO 


5412 




T.-iYAGN 5425 





4-33 



INDEX 



Accumulator, 2-4 
Addition, 2-5, 2-6, 3-7 
After Output, 3-4 
Arithmetic, 2-4 

Basic Commands, 2-4 

Basic Function, 3-7 

Basic Package, 3-6 
Summary, 3-9 

Call Subroutine, 3-6 

Commands, 2-4 

Conversion 

Fixed-to-Floating, 3-10 
Floating-to-Fixed, 3-10 

Cosine, 3-1 1 

Decimal to Octal Conversion, 2-3 
Division, 2-5, 2-6, 3-7 
Double Precision, 4-15 

e, raising to power 

Entry Points 

Input Routine, 3-2 
Interpreter, 2-4, 2-6 
Listed, 3-9 

Negate Subroutine, 3-6 
Output Subroutine, 3-6 

Error flag, 3-8 

Exponent 

Floating, 3-11 

In floating point format, 2-1 

Storage, 2-2 

FAC (floating accumulator), 2-4 
FADD, 2-5 
FDIV, 2-5 
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INDEX (Cont) 



1-7, 1-1 
5600, 2-6 
7400, 15, 3-2 

Listings, Program, 4-1 
Logarithm, 3-1 1 
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HOW TO OBTAIN SOFTWARE INFORMATION 



Announcements for new and revised software, as well as programming notes, software problems, and documenta- 
tion corrections are published by Software Information Service in the following newsletters. 



Digital Software News for the PDP-8 Family 
Digital Software News for the PDP-9/15 Family 
PDP-6/PDP-10 Software Bulletin 



These ne\ysletters contain information applicable to software available from Digital's Program Library. 



Please complete the card below to place your name on the newsletter mailing Ust. 



Questions or problems concerning DEC Software should be reported to the Software Speciahst at your nearest DEC 
regional or district sales office. In cases where no Software Specialist is available, please send a Software Trouble 
Report form with details of the problem to: 

Software Information Service 
Digital Equipment Corporation 

146 Main Street, Bldg. 3-5 
Maynard, Massachusetts 01754 

These forms, which are available without charge from the Program Library, should be fully filled out and accompa- 
nied by teletype output as well as listings or tapes of the user program to facilitate a complete investigation. An 
answer will be sent to the individual and appropriate topics of general interest will be printed in the newsletter. 

New and revised software and manuals, Software Trouble Report forms, and cumulative Software Manual Updates 
are available from the Program Library. When ordering, include the document number and a brief description of 
the program or manual requested. Revisions of programs and documents will be announced in the newsletters and 
a price list will be included twice yearly. Direct all inquiries and requests to: 

Program Library 
Digital Equipment Corporation 
146 Main Street, Bldg. 3-5 
Maynard, Massachusetts 01754 

Digital Equipment Computer Users Society (DECUS) maintains a user Library and publishes a catalog of programs 
as well as the DECUSCOPE magazine for its members and non-members who request it. For further information 
please write to: 

DECUS 

Digital Equipment Corporation 

146 Main Street 

Maynard, Massachusetts 01754 
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